Графические циклы в Pascal ABC

Практическая работа по программированию для учащихся 9 класса.

Пример цикла с предусловием while “Пока”

Program primtr3;
Uses Crt, GraphABC;
var x:Integer;
begin
x:=1;
while (x<640) do
begin
line (x,0,x,400);
x:=x+10;
end;
end.