Program Dialog;                    {расширенный  диалог  —  второй  вариант)
const
Question =' What is your name?';
Rep(y1 =
'Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';
Reply21 = 'Вас ждет удивительное путешествие';
Reply22 = 'сквозь джунгли особенностей и возможностей языка';
Reply3 =
'Паскаль — разумный компромисс между желательным и эффективным';
Reply4 = 'Паскаль академически элегантен';
var
Name: string;
Age: byte;
begin
WriteLn(Question);   ReadLn(Name);      {Ввод    имени}    WriteLn('Hello,',
Name,'!');          {Вывод  приветствия}  WriteLn('How   old   are   you?');
{Вопрос о возрасте} ReadLn(Age);                     {Ввод возраста}  if  12
< Age then WriteLn(Reply1 );
if (12 <= Age) and (Age < 20) then begin
WriteLn (Reply21);
WriteLn (Reply22) end;
if (20 <= Age) and (Age < 40) then WriteLn(Reply3);
if Age >= 40 then WriteLn(Reply4) end.