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

Question

Помогите срочно. Написать программу в паскаль. a,b если а>b то с=a-b a<b то с=b-a a=b тоc=a+b

Mirmarket · Accepted Answer

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.

Помогите срочно. Написать программу в паскаль. a,b если а>b то с=a-b a

Задание:

Решение: