Question

Даны два числа а и в. Увеличить А в 5 раз, ели оно меньше В. Если В меньше А, то заменить В на значение А, а А на значение В.
Напишите программу на Pascal ABC пж.

Answer 1

var a,b,t:longint;

begin

readln(a,b);

if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;

writeln('a = ',a);

writeln('b = ', b);

end.