Составьте программу, которая запрашивает показания температуры t, и рисует снежинку, если t меньше 0, или солнышко, если t больше 0. ​

uses graphabc;

var

p:array[0. . 3]of point;

t:integer;

procedure lines;

begin

line(100,100,300,300);

line(100,300,300,100);

line(200,100,200,300);

line(100,200,300,200);

end;

begin

p[0]. x := 150; p[0]. y := 200;

p[1]. x := 200; p[1]. y := 250;

p[2]. x := 250; p[2]. y := 200;

p[3]. x := 200; p[3]. y := 150;

SetBrushColor(clblack);

readln(t);

if t < 0 then

begin

Polygon(p[0],p[1],p[2],p[3]);

lines;

end;

if t > 0 then

begin

circle(200,200,50);

lines;

end;

end.