Составьте процедуру на турбо паскале

[Виталий_ЕШКО]

Задание 1:
Составьте процедуру на Паскале (Turbo Pascal) для вывода прямоугольника заданного размера и цвета в заданную область экрана с проверкой корректности параметров вызова.

Задание 2:
Составьте программу с использованием модуля DOP.TPU для вывода таблицы значений факториала чисел от 1 до 10.

[Stilet]

Задание 1:

uses graph,crt;
var gb,f,gm:Integer;
x:array[1..4] of integer;
t:char;

begin

gm:=1;
gb:=0;
clrscr;
write('x ':10);readln(x[1]);
write('y ':10);readln(x[2]);
write('width ':10);readln(x[3]);
write('height ':10);readln(x[4]);
initgraph(gb,gm,'');
 bar(x[1],x[2],x[1]+x[3],x[2]+x[4]);
readkey;
closegraph;
end.

Колор сам добавишь?

[Виталий_ЕШКО]

Если можно, то с добавкой цвета.