JIox

да ладно, ошибку я уже исправил

в итоге получилось:
var a,b:real;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
a:=a/5;
writeln ('A = ',a,'; B = ',b);
end.