program z1;
uses GraphABC;
var t:integer;
begin
SetWindowWidth(400);
SetWindowHeight(400);
SetFontSize(15);
write('Введите показания температуры: ');
read(t);
write(t);
SetPenWidth(2);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clLightBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
FillCircle(200,200,50)
end
end.
Объяснение:
картинки
