1) program znanija2; var answer:integer; begin writeln('Вычисли: (5*8)-2*4'); readln(answer); if answer = ((5*8)-2*4) then writeln('Правильно') else writeln('Ты ошибся'); end.
2)
program znanija3; var answer:string; begin read(answer); if answer = 'мужской' then writeln('Вы - защитник отечества') else if answer = 'женский' then writeln('Вам не повезло - женщины не служат в арми') end.
3)
program znanija3; var answer:string; begin writeln('Переведите слово Windows на русский язык'); readln(answer); if answer = 'окна' then writeln('Молодец! Верно') else writeln('Неверно') end.
4)
program znanija3; var answer:string; begin writeln('Переведите слово Run на русский язык'); readln(answer); if answer = 'бегать' then writeln('Верно!') else writeln('Неправильно') end.