Question

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

Answer 1

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.