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

2

Ответы и объяснения

2013-04-08T14:01:32+04:00

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

  • pslk
  • середнячок
2013-04-08T17:29:31+04:00

var a,b,s:integer;

begin

readln(a,b);

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

writeln(s);

end.