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

на каком языке писать прогу?

Паскаль

4-6 сделайте, пожалуйста

3)
var
  a: integer;
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then
  writeln('Число ', a, ' четное.')
else
  writeln('Число ', a, ' нечетное. Увеличенное в два раза = ', a + a); 
end.
 
---------------------------------------------------

4)
var
  a: byte;
begin
write('Введите количество ошибок: ');
readln(a);
  if a = 0 then
    writeln('Оценка 5');
  if a = 1 then
    writeln('Оценка 4');
  if a = 2 then
    writeln('Оценка 3');
  if a gt; 2 then
    writeln('Оценка 2');
end.

--------------------------------------------------------------

6)
var
  a, b, c: integer;
begin
write('Введите рост и вес: ');
readln(a, c);
  b := a - 100;
writeln('Образцовый вес = ', b); 
end.