program GenerateRandomSquares;
uses CRT;
var
i: Integer;
x, y, size: Integer;
begin
Randomize;
// Очищаем экран
ClrScr;
// Генерируем и выводим 100 квадратов
for i := 1 to 100 do
begin
x := Random(80); // Генерируем случайное значение x (0-79)
y := Random(24); // Генерируем случайное значение y (0-23)
size := Random(10) + 1; // Генерируем случайный размер квадрата (1-10)
// Рисуем квадрат
gotoxy(x, y);
writeln('┌' + StringOfChar('─', size) + '┐');
for y := 1 to size do
begin
gotoxy(x, y);
writeln('│' + StringOfChar(' ', size) + '│');
end;
gotoxy(x, y);
writeln('└' + StringOfChar('─', size) + '┘');
delay(500); // Делаем паузу между рисованием каждого квадрата
end;
readln;
end.