Ответ:
Объяснение:
Ответ:
3)
var
a:integer;
begin
a:=0;
while a<12 do</p>
begin
writeln ('Весна');
a:=a+1;
end;
end.
4)
var
a,n:integer;
begin
readln(n);
a:=1;
while a
begin
writeln (a*a*a);
a:=a+1;
end;
end.
5)
var
a,b:integer;
begin
readln(a,b);
while a begin
writeln (a,'*',a,'=',sqr(a));
a:=a+1;
end;
end.