Операторы цикла (Pascal)

[Ximer]

Ребят помогите с решением задачек

[Levsha100]

А по-человечески написать слабо? Трафик не железный
********************
1)

for i:=1 to 10 do
  WriteLn('x: ',i*10,' y: ,(i*10)*(i*10)*(i*10)+5);

[Ximer]

Извини. В следующий раз учту! А со 2 помочь можите.

[Razorishe]

2:

uses crt, graph;
var gd,gm,x,y:integer;
    i:byte;
begin
 clrscr;
 initgraph(gd,gm,'');
 x:=350; y:=250;
 for i:=1 to 3 do
  begin
   rectangle(0,x,y,478);
   x:=x-150; y:=y+150
  end;
 readln
end.

Несовсем понял второе задание, но получилось примерно так. Устраивает такой вариант?

[Ximer]

Да! спасиб за помощь.