Взять семя дерева-взять лопату-выкопать ямку-положить семя-закопать ямку-полить. Радоваться какой ты молодец :D
Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
Подмножество объектов<span>, </span>имеющих общие признаки<span>, называется классом. </span>
Program a1;
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end. <span> </span>
Цикл for выполняет 3 раза d+2*i
d=4*2=8
1)d=8+2*1=10
2)d=10+2*2=14
3)d=14+2*3=20
d=20