Var a:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
writeln('a = ',a);
end.
Пример:
a = -5
a = 5
10<11<12<13 и т.д
так нет посмотри если что переделаю
Ответ:
Рисунок и ответом во вложении.
Var a,i,max:integer;
begin
max:=-MaxInt;
for i:=1 to 4 do begin
readln(a);
if a>max then max:=a;
end;
writeln('Максимальное ',max);
end.
все во вложении (сначало само задание потом ответ)