Program summa; (название можно дать любое, это не важно);
Var a, b, c, d: integer;
begin
a:=13;
b:=3;
c:=4;
d:=a-b-c;
writeln( ответ 'd);
end.
