Составить программу,которая уменьшит первое число в 5 раз,если оно больше второго по абсолютной величине.
program cnjdknc;
uses crt;
var a,b:real;
begin
readln(a,b);
if a>b then a:=a/5;
writeln(a);
readln;
end.