Помогите сделать что-то из этого(((( ооочень срочно

5 не знаете как решать?

3)var  a: integer;beginwrite('Введите число: ');readln(a);if a mod 2 = 0 then  writeln('Число ', a, ' четное.')else  writeln('Число ', a, ' нечетное. Увеличенное вдвое = ', a + a);  end.  ---------------------------------------------------4) var  a: byte;beginwrite('Введите количество ошибок: ');readln(a);  if a = 0 then    writeln('Оценка 5');  if a = 1 then    writeln('Оценка 4');  if a = 2 then    writeln('Оценка 3');   if a > 2 then    writeln('Оценка 2');end. --------------------------------------------------------------6)var  a, b, c: integer;beginwrite('Введите рост и вес: ');readln(a, c);  b := a - 100;writeln('Идеальный вес = ', b);  end.