Ответ: var a, b:string;beginwriteln (‘-Здравствуй, я компьютер, а тебя как зовут?’);readln (a);writeln (‘-Очень приятно, ‘, a, ‘. Сколько тебе лет?’);readln (b);writeln (‘-Ого! Целых ‘, b, ‘! Ты уже совсем взрослый!’);end.