Question

BL De la tastatură se introduc două numere întregi. Scrieți un program ce va calcula şi va afişa pe ecran produsul acestor numere. pascal​

Answer 1

Program Produs;

Var

x,y : integer;

Begin

WriteLn('Acest program calculeaza produsul a doua numere intergi si afiseaza pe ecran');

WriteLn('Introdu primul numar');

ReadLn(x);

WriteLn('Introdu a doia numar');

ReadLn(y);

z := x * y;

WriteLn(Produsul este: ', z);

End.