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

{
Даны два прямоугольника. Закрасить синим цветом прямоугольник с меньшей площадью.
Первый прямоугольник задан координатами противоположных вершин (x1,y1) и (x2,y2)
Второй прямоугольник задан координатами противоположных вершин (x3,y3) и (x4,y4)
}
PROGRAM Prim_2_1;
USES Crt, GraphABC;
const x1=90; y1=90;
x2=310; y2=210;
x3=160; y3=160;
x4=390; y4=290;
var a1,a2,b1,b2,s1,s2:real;
BEGIN
SetWindowSize(400, 300); { Задает размер окна для вывода изображений. }
SetBrushColor(clred); { Устанавливает красный цвет кисти}
FillRect(x1,y1,x2,y2); { Заливает первый прямоугольник, заданный
координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти.}
SetBrushColor(clgreen); { Устанавливает зеленый цвет кисти}
FillRect(x3,y3,x4,y4); { Рисует второй прямоугольник }
a1:=sqrt(sqr(x1-x1)+sqr(y2-y1)); {Находим длину стороны а1 первого прямоугольника}
b1:=sqrt(sqr(x2-x1)+sqr(y1-y1)); {Находим длину стороны b1 первого прямоугольника}
S1:=a1*b1; {Находим площадь первого прямоугольника}

a2:=sqrt(sqr(x3-x3)+sqr(y4-y3)); {Находим длину стороны а2 второго прямоугольника}
b2:=sqrt(sqr(x4-x3)+sqr(y3-y3)); {Находим длину стороны b2 второго прямоугольника}
S2:=a2*b2; {Находим площадь второго прямоугольника}
writeln('s1= ', s1, ' ', 's2= ', s2); {Выводим ответы}
delay(1000); {Осуществляет задержку на 1000 миллисекунд}
{если s1>s2 то закрасим синим цветом прямоугольник с площадью s1,
иначе закрасим синим цветом прямоугольник с площадью s2}
if s1>s2 then
begin
FloodFill(x3,y3,clBlue); { Заливает второй прямоугольник синим цветом}
end
else
begin
FloodFill(x1,y1,clBlue); { Заливает первый прямоугольник синим цветом}
end;
END.