(в паскале):
program rwerwe;
var
a,b: integer;
begin
read(a);
If a<0 then begin b=:a*-1; write (,b,); end else write (,a,)
end.
pr....
var
a,b,c: real;
begin
read (a,b,c)
If (ABS(a-b)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.