3)
var
a:integer;
begin
a:=0;
while a<12 do
begin
writeln ('Весна');
a:=a+1;
end;
end.
4)
var
a,n:integer;
begin
readln(n);
a:=1;
while a<n+1 do
begin
writeln (a*a*a);
a:=a+1;
end;
end.
5)
var
a,b:integer;
begin
readln(a,b);
while a<b+1 do
begin
writeln (a,'*',a,'=',sqr(a));
a:=a+1;
end;
end.
