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

задач.

Задание:
Ознакомьтесь с теоретическим материалом выполните необходимые записи в тетраде (структуру операторов).
Наберите программы в PascalABC проверьте их работоспособность (исправив ошибки) ознакомьтесь с применением  операторов  повтора.
Вышлите скирншоты программ с результатами работы. (первые пять получат оценки в журнал)

с постусловием (инструкция repeat),
цикл с предусловием (инструкция while)
цикл со счетчиком (инструкция for).

окончания (until). Ключевые слова repeat, until обозначают "повторяй" и "пока" соответственно.
repeat
{ Инструкции }
until Условие выхода из цикла;

компьютером — случайное число в диапазоне от О до 1000. Процесс продолжается до тех пор, пока значение переменной igrok, которая вводится с клавиатуры, не совпадет со значением переменной com

var
comp: real; { число, "задуманное" компьютером }
igrok: integer; { вариант игрока }
begin
randomize; { инициализация датчика случайных чисел } comp:=random(1000); { компьютер загадал число }
repeat writ('Введите число: ');
radln(igrok);
if igrok>comp then writln('Слишком много...');
if igrokuntil comp=igrok;
writeln('Вы выиграли!')
end.

слова while и do обозначают "до тех пор, пока" и "выполняй" соответственно.
while Условие выполнения цикла do
begin
{ Инструкции }
end;

7 8 9 10 10 9 8 7 6 5 4 3 2 1

var i: integer;
begin
i:=0;
while i<10 do
begin
i:=succ(i);
write (i, ‘ ‘);
end;
Writeln;
i:=10;
while i>10 do
begin
write (i, ' ‘);
i:=pred(i);
end;
end.

с параметром. В нем важную роль играет переменная-параметр, которая на каждом шаге цикла автоматически изменяет свое значение ровно на единицу — поэтому ее и называют счетчиком.
Инструкцию for можно реализовать двумя способами.

do
begin
{ Инструкции }
end;
Ключевые слова for, do обозначают "для", "выполняй" соответственно. Строка содержащая for...do, называется заголовком цикла, оператор, стоящий после do образует его тело. Очень часто тело цикла — составной оператор. Если тело цикла представлено одиночным оператором, то begin и end не пишутся.

begin
{ Инструкции }
end;
Инструкции между begin и end выполняются столько раз, сколько определяет выражение [(НачальноеЗначение - КонечноеЗначение) + 1]. Если НачальноеЗначение меньше, чем КонечноеЗначение, то инструкции между begin и end не выполняются ни разу.

столбца таблицы }
begin
for i:=l to 10 do
begin
for j:=l to 10 do
write(i*j:5);
writeln; { перевод строки }
end;
end.