Var i,n:integer;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do writeln(i,' ',i*i);
<span>end.</span>
носок мозоль георгин помидор - мозоль
<em>озимь цитадель фланель панцирь - панцирь</em>
<u>подстаканник подорожник подснежник подлокотник .- подорожник</u>
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.