РЕБЯТА СРОЧНО Пожалуйста посчитайте ДАЮ 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.