1.
var i:integer;
begin
for i:=1 to 7 do
writeln('я учусь в гимназии 12');
end.
2.
var i,k:integer;
begin
k:=13;
for i:=1 to 5 do
begin
k:=k+2;
writeln(k,' ');
end;
end.
3.
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
writeln('s=',s);
end.