Задание на языке паскаль:
Ввести переменные A, B, C (целые числа), если A>B, то C=A-B, если A
вывести C

var

 A, B, C: integer;

begin

 read(A, B, C);

 if (A > B) then C := A - B

 else write(C);

end.