Создаешь большой прямоугольник (нужных размеров) через кнопку на верхней панели,делаешь серую заливку,сверху таким же способом делаешь 3 круга (там сначала создается квадрат,а ты в властивостях форми выбираешь circle)и делаешь заливку разных цветов.
Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>
Ответ 2 , последовательность символом , слов , абзацев
Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>