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

Var a,b,c,,dS : Integer;
begin
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
end.

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.