Question

Se citesc doua variabile de la tastatura.Daca a>b se va calcula suma lor,in caz contrar se va calcula produsul lor.

Answer 1

var

 a, b, c: integer;

begin

 write('a:');

 readln(a);

 write('b:');

 readln(b);

 if a > b then  

   c := a + b

 else  

   c := a * b;

 writeln('Rezultatul=', c);

end.