Решение задачи №20

Задача 20 из главы 3

Васе m лет, а Паше k лет. Напишите программу, в которая считает их суммарный возраст и выводит значение на экран. Конкретные значения возрастов этих двух человек задайте в коде в виде двух переменных, которым присвойте значения целочисленных литералов. Результат суммы запишите в третью переменную и выведите значение на экран.

var v, //  для хранения возраста Васи
   p,  //  для хранения возраста Паши
   s :integer; // s -переменная для хранения ответа
begin//открываем операторные скобки
    v:=5;//инициализация переменной v
    p:=10;//инициализация переменной p
    s:=v + p;
    write('Summarnyi vozrast raven',' ', s);{выводим строковые литералы
    и переменную }
    readln();//удерживаем консоль
end.//закрываем операторные скобки