Объявить две переменные целого типа, присвоить им некоторые значения, вывести их на экран, затем прибавить (или вычесть) к первой переменной значение второй переменной (результат операции присвоить первой переменной), вывести значение первой переменной на экран.
program Nazvanie;
var
a: integer;
begin
a:= 1;
writeln (a);
a:= 2;
writeln(a);
end.