Здравствуйте ! не могу разобраться в конце с выставкой оценок, псакаль

Здравствуйте ! не могу разобраться в конце с выставкой оценок,псакаль
Uses crt;
Var z,z1,z2,z3,z4,z5,w,e,Q:integer;
Begin
Textcolor(Black);
TextBackGround(red);
Writeln('xòî òàêîå Ïê');
Writeln('1.Ïåðñîíàëüíûé êîìüþòåð');
Writeln('2.Ïëàíøåò');
Writeln('3.Òåëåâèçîð');
Read(q);
z1:=0;
If q=1 then writeln('Ïðàâèëüíî')
else writeln('Íåïðàâèëüíî');
If q=1 then z2:=z1+20;
Writeln('Íà ñêîëüêî ãðóïï äåëÿòñÿ ìîíèòîðû');
Writeln('1.1');
Writeln('2.3');
Writeln('3.2');
Read(q);
If q=3 then z3:=z2+20;
If q=3 then writeln('Ïðàâèëüíî')
else writeln('Íåïðàâèëüíî');
Writeln('Êàê íàçûâàþòñÿ ïðîãðàììû çà êîòîðûå íóæíî ïëàòèòü äåíüãè');
Writeln('1.Äåìî');
Writeln('2.Ëèöåíçèîííûå');
Writeln('3.Óñëîâíî-áåñïëàòíûå');
Read(q);
If q=2 then z4:=z3+20;
If q=2 then writeln('Ïðàâèëüíî')
else writeln('Íåïðàâèëüíî');
Writeln('xòî òàêîå ïðèêëàäíàÿ ïðîãðàììà');
Writeln('1.Ãðàôè÷åñêèå ðåäàêòîðû,èãðû è òå ïðîãðàììû áåç êîòîðûõ êîìïüþòåð ìîæåò ðàáîòàòü');
Writeln('2.Ñèñòåìíûå ïðîãðàììû');
Writeln('3.Óñòàíîâùèêè ïðîãðàìì');
Read(q);
If q=1 then z5:=z4+20;
If q=1 then writeln('Ïðàâèëüíî')
else writeln('Íåïðàâèëüíî');
Writeln('÷ÒÎ ÒÀÊÎÅ Windows xp');
Writeln('1.Èãðà');
Writeln('2.Îïåðàöèîííàÿ ñèñòåìà');
Writeln('3.Ãðàôè÷åñêèé ðåäàêòîð');
Read(q);
If q=2 then z:=z5+20;
If q=2 then writeln('Ïðàâèëüíî')
else writeln('Íåïðàâèëüíî');
If z=(100) or (80) then e:=5;
If z=80 or 70 then e:=4;
If z=60 then e:=3;
If z=50 then e:=2;
Writeln('Âû îòâåòèëè íà ',e,' áàëëîâ');
End.

  • совершенно не понятен текст в выводе на экран Writeln('÷ÒÎ ÒÀÊÎÅ Windows xp');
    Writeln('1.Èãðà');
    Writeln('2.Îïåðàöèîííàÿ ñèñòåìà');
    Writeln('3.Ãðàôè÷åñêèé ðåäàêòîð');
    лучше пришли постановку задачи