program raf105;
var a,b: real;
begin
write('Введите 2 числа: ');
readln(a,b);
if abs(a)>b
then a:= a / 3;
writeln('Вывод: ',a,' ',b);
end.
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