составить программу реализующую диалог
комп: как тебя зовут:?
ученик: Вася
комп: сколько тебе лет?
ученик: 15
комп: Вася, в следующем году тебе будет 16 лет

program z1;

  var v:integer;

      a:string;

    begin

      writeln('Как тебя зовут?');

      readln(a);

      writeln('Сколько тебе лет?');

      readln(v);

      writeln(a,', в следующем году тебе будет ',v+1,' лет');

     readln;

    end.