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 <> 0 then write(i, ' ');
end.