использовать Рисователь
алг
нач
новый лист(600, 400, белый)
в точку (250,350)
линия в точку (300,75)
линия в точку (350,350)
линия в точку (250,350)
кисть(красный)
окружность(300, 75, 20)
залить(300,250)
в точку (200,350)
линия в точку (100,100)
линия в точку (265,265)
линия в точку (250,350)
линия в точку (200,350)
кисть(синий)
окружность(100, 100, 20)
залить(200,300)
в точку (400,350)
линия в точку (500,100)
линия в точку (335,265)
линия в точку (350,350)
линия в точку (400,350)
кисть(зеленый)
окружность(500, 100, 20)
залить(400,300)
кон
Объяснение:
Смотри картинку
begin
readln (n);
pr:=1;
repeat
read(a);
if (a>=-2) and (a<=2) then pr:=pr*a;
n:=n-1;
until n=0;
write (pr);
end.