Question

введены 2 числа, выведите их произведение, если первое больше второго и разность их в противном случае

Answer 1

var a,b:integer; begin readln(a,b); if (a>b) then writeln(a) else begin writeln(b); end; readln; end.

Answer 2

var a,b,s:integer;

begin

readln(a,b);

if (a>b) then s:=a*b else s:=a-b;

writeln(s);

end.