информатика (не сорт) / Prg_10_2_мэ11_Лукашеня

PROGRAM Prim_2_1;
USES Crt, GraphABC;
const x1=100; y1=50;
x2=300; y2=250;
x3=50; y3=150;
x4=200; y4=300;
k=500;
var a1,a2,b1,b2,s1,s2:real;
BEGIN

SetWindowSize(720, 480);

{ Устанавливает красный цвет кисти}
SetBrushColor(clMedGray );
{ Заливает первый прямоугольник, заданный
координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти.}
FillRect(x1,y1,x2,y2);
delay(k); {Осуществляет задержку на 1000 миллисекунд}
{ Устанавливает зеленый цвет кисти}
SetBrushColor(clyellow);
{ Рисует второй прямоугольник }
FillRect(x3,y3,x4,y4);
delay(500); {Осуществляет задержку на 1000 миллисекунд}
{если s1>s2 то закрасим синим цветом прямоугольник с площадью s1,
иначе закрасим синим цветом прямоугольник с площадью s2}
if s1>s2 then
begin
FloodFill(x1,y1,clBlue); { Заливает второй прямоугольник синим цветом}
end
else
begin
FloodFill(x3,y3,clBlue); { Заливает первый прямоугольник синим цветом}
end;




END.