Question

Помогите срочно по информатике решить задачу!!!

Answer 1

Program up1;
var a,b,c:integer;
begin
writeln('введите два числа');
read(a,b);
if a>b then c:=a-b else c:=b-a;
write(c,'разность минимального и максимального числа');
end.