program test;
var one,two:real;
begin
writeln('vvedite pervoe chislo');
readln(one);
writeln('vvedite vtoroe chislo');
readln(two);
if abs(one)>abs(two) then one:=one/5;
writeln(one);
end.
program test;
var one,two:real;
begin
writeln('vvedite pervoe chislo');
readln(one);
writeln('vvedite vtoroe chislo');
readln(two);
if abs(one)>abs(two) then one:=one/5;
writeln(one);
end.