Записать программу на языке Паскаль.
a:=7
b:=3
c:=a+b
если c>d, то S:=c-d
Иначе S:=d-c

var a,b,c,d,S:integer;begin readln(d); S:=0; a:=7; b:=3; c:=a+b; if c>d then  S:=c-d else  S:=d-c;writeln(S);end.