Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.