Program dialog;
const
Question='What is your name?';
Reply1='Паскаль-прост,но первый компилятор Паскаля был написан на Паскале';
Reply21='Вас ждет удивительное путешествие';
Reply22='сквозь джунгли возможнности и особенности языка';
ReplyS='Паскаль-разумный компромисс между желательным и эффектевным';
Reply4='Паскаль-академически элегантен';
var Name:string;Age:byte;
begin
writeln(Question);readln(name);
writeln('Hello,',Name,'!');
write('How old are you?');readln(age);
case Age of
0..11:writeln(Reply1);
12..19:begin writeln('Reply21');writeln(Reply22)end;
20..39:writeln(ReplyS);
40..150:writeln(Reply4);
else writeln('Вы ошиблись при вводе');
end;
end.