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

program z1;

  var v:integer;

      a:string;

    begin

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

      readln(a);

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

      readln(v);

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

     readln;

    end.