Question

составить программу которая уменьшает первое введенное число в 3 раза если оно больше второго введенного числа по модулю

Answer 1

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if abs(a)>b

 then a:= a / 3;

writeln('Вывод: ',a,' ',b);

end.

Язык PascalABC