Varian 1
begin
var x := ReadInteger('Введите ваш возраст: ');
Print('Через 10 лет вам будет: ', x + 10);
end.
Varian 2
var
x: integer;
Writeln('Введите ваш возраст: ');
Read(x);
x := x + 10;
Writeln('Через 10 лет вам будет: ', x);
Varian 1
begin
var x := ReadInteger('Введите ваш возраст: ');
Print('Через 10 лет вам будет: ', x + 10);
end.
Varian 2
var
x: integer;
begin
Writeln('Введите ваш возраст: ');
Read(x);
x := x + 10;
Writeln('Через 10 лет вам будет: ', x);
end.