Номер 2.
uses GraphABC;
begin
circle(300,200,100);
circle(300,200,90);
circle(300,200,80);
circle(300,200,70);
circle(300,200,60);
circle(300,200,50);
circle(300,200,40);
circle(300,200,30);
circle(300,200,20);
circle(300,200,10);
<span>end.
Номер 1.
uses GraphABC;
begin
circle(25,100,25);
circle(75,100,25);
circle(125,100,25);
circle(175,100,25);
circle(225,100,25);
circle(275,100,25);
circle(325,100,25);
circle(375,100,25);
circle(425,100,25);
circle(475,100,25);
circle(525,100,25);
circle(575,100,25);
<span>end.</span></span>
Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.
интервал записывается как двойное условие (в скобках через and или or)
if (a < 4.2) or (a > 8.4) then power(a, 3);
аналогично для других переменных.