Можно без труда составлять программы, в соответствии с которыми ЭВМ при помощи своих символов будет "рисовать" различные геометрические фигуры. Приведем программу, которая печатает прямоугольник, состоящий из символов +, -, 1. Исходные данные - высота и длина прямоугольника (выражены числом символов).

Program Priamougolnik;
uses crt;
const max=120; {ширина используемой бумаги}
var a, b:3..max; {стороны прямоугольника}
 j: integer;
procedure gorizont (dlina:integer);
{построение горизонтальной стороны}
var k: integer;
begin
 write('+');
 for k:=1 to dlina-2 do
 write('-');
 writeln('+')
end;
begin
 writeln('Введите стороны прямоугольника: ');
 read(a, b);
 gorizont(b);
 for j:=1 to a-2 do
 writeln('I', 'I':b-1);
 gorizont(b);
readkey
end.

При a=5, а b=8 ЭВМ напечатала прямоугольник.

---