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

P.S. Название проги измени чтобы не подумали что списал

СПАСИБО БОЛЬШОЕ ДОБРЕЙШИЙ ЧЕЛОВЕК !

Да не за что

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.