По информатике 8 класс в паскале авс 1)написать слово осень n-ое кол-во раз. 2)выведите числа от 20 до 50 в столбик. 3)вычеслите сумму нечетных чисел от 7 до 41. 4)вычеслите произведение от 10 до 20 всех чётных чисел. напишите хотя бы на 1 вопрос ответ если знаете .!

Вот первое 
var n,i:integer ;begin

readln(n);

 for i := 1 to n do begin

writeln ('осень'); 

end; 

end.
вот 2 var i:integer ;
begin
for i := 20 to 50 do begin
writeln (i); 
end; 
end. вот 3 var i,n:integer ;
begin
for i := 7 to 41 do begin
if (i mod 2<>0) then
n:=n+i;
end;
writeln (n); 

end. и 4 var i,n:integer ;
begin
n:=1;
for i := 10 to 20 do begin
if (i mod 2=0) then
n:=n*i;
end;
writeln (n); 

end.