РЕБЯТА Безотлагательно ПОМОГИТЕ ДАЮ 50 БАЛЛОВ!!!!!ПОЖАЛУЙСТА РЕШИТЕ 4 Задачки Либо Желая

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.