Проверьте задачку с While...Do. В PascalABC.Net

[AntoshkaK]

Суть задачки, в том, что запрашивается количество квадратов, а затем проверяет можно ли разместить их число во всю высоту окна, если можно, то квадраты выводятся в стандартного размера (размер окна при его первом появлении на экране) графическое окно(первый рисунок — введено число 4, второй — введено число 5). Если размещение невозможно, то выводится сообщение: «Разместить невозможно!» и пользователю предлагается ввести количество квадратов еще раз. Чередование цветов квадратов обязательно.



У меня получилось вот что, мало похоже на реальность (чередование потом цветов буду делать, главное-структуру понять....):

Uses GraphABC;
Var
kol, sz, ww,wh, k, x,y:Integer;
Begin
CenterWindow;
ww:=WindowWidth;
wh:=WindowHeight;
Writeln('Введите количество квадратов');
Readln(kol);
While (kol<2) or (ww mod kol<>0) Do
begin
Writeln('Разместить невозможно');
Writeln('Введите кол-во квадратов');
readln(kol);
end;
sz:= ww div kol;
x:=0;
y:=(wh-sz)div 2;
k:=0;
While k<=kol do
begin
Rectangle(x,y,x+sz, y+sz);
k:=k+1;
x:=x+sz;
end;
End.