РЕБЯТА СРОЧНО ПОМОГИТЕ ДАЮ 50 БАЛЛОВ!!!!! ПОЖАЛУЙСТА РЕШИТЕ 4 ЗАДАЧИ ИЛИ ХОТЯ БЫ 2...

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.