Помогите срочно. Написать программу в паскаль.

a,b

если а>b то с=a-b

a<b то с=b-a

a=b то c=a+b

1

Ответы и объяснения

Лучший Ответ!
2013-10-01T14:47:10+04:00
Var a,b,c:integer;
Begin 
 write('a='); readln(a); 
 write('b='); readln(b); 
 if a>b then
   c:=a-b
  else
   if a<b then
     c:=b-a
    else
     c:=a+b;
 writeln('c=',c);
 readln;
end.