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(Reply5);
40..150:writeln(Reply4);
else writeln('Âû îøèáëèñü ïðè ââîäå');
end;
end.
20..39:writeln(Reply5);выдаёт ошибку