Turbo Паскаль.Даны 2 числа.Определить какое из них наименьшее по абсолютному значению.

Question

Turbo Паскаль.Даны 2 числа.Определить какое из них наименьшее по абсолютному значению.

Answer 1

Program al;
var  a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if abs(a)>abs(b)
then
writeln ('naimensee=',b)
else
writeln('naimensee=',a);
readln;
end.