Вопрос Задача по языку програмирования Pascal !!!!!!!

[hasanchik]

вывести на монитор квадраты чисел от 1 до 10 с использованием цикла до(Pascal)

 

[серик12]

program Test;
uses sysutils;
var x:integer;
begin
for x:=1 to 10 do
writeln(IntToStr(x)+'^2 = '+IntToStr(x*x));
end.

 

[DIMANNN]

var i:integer;
begin
// С циклом for
for i:=1 to 10 do writeln(i, '^2=', sqr(i));
// C циклом while
i := 1;
while i < 11 do
begin
writeln(i, '^2=', sqr(i));
inc(i)
end;
end.

 

[Фак777]

Вывел.
Что дальше с этим делать?)

 

[Попа]

Что за цикл до?
Есть цикл for … do, есть while … do. Они оба с do на конце.
Есть еще repeat … until.