помогите пожалуйста!!! очень срочно!!!

2)

var

   name : string;

begin

   write('введите ваше имя: ');

   readln(name); // вводим имя с клавиатуры

   for var i := 1 to 6 do writeln(name); // 6 раз выводим имя на печать

end.

3)

var

   m, s : integer;

begin

   write('введите m: ');

   readln(m); // вводим m

   for var i := 1 to m do s := s+i; // складываем числа

   writeln('сумма чисел от 1 до ', m, 'одинакова ', s); // выводим сумму на печать

end.

4)

var

   a : integer := 1; // объявляем и сходу присваиваем значение 1. если это не сделать то произведение всегда будет одинаково 0, так как 0*0=0

begin

   for var i := 3 to 11 do a := a*i;

   writeln(a);

end.

5)

begin

   for var i := 0 to 4 do write(i, ' ');

end.

тут 0 тоже считается как натуральное число, потому от 0 до 4

6)

var

   n : integer;

begin

   write('введите n ');

   readln(n);

   for var i := 0 to n do if i mod 2 lt;gt; 0 then write(i, ' ');

end.