Turbo Pascal 51

1. Случайным образом построить 200 точек различных цветов. Повторять эти действия, пока не нажата клавиша Esc.
2. Не пользуясь стандартной процедурой Circle, нарисовать окружность с координатами х, у, радиусом R и цветом C.
Окружность можно нарисовать используя параметрическое уравнение окружности:
x = r cos(t), y = r sin(t), r > 0 - радиус.
Вычисление x, y от угла t можно организовать, например, через процедуру с формальными параметрами переменными:
Procedure Fpar(t,r: real; var x,y: real);
begin
x := r*cos(t);
y := r*sin(t);
end;