Var
a,y,d,i,t : integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(y);
d:=a+y;
Writeln('НА сколько хотите увеличить сумму?');
readln(t);
i:=d+t;
writeln('==========      ',i,'   ===========');
end.