самый большой авал это будет танцоры. поменьше актёры,а самый маленький авал певцы. 2 элемента
Var x: integer;
begin
for x:=1 to 9 do writeln('x= ',x,' y= ', (sqr(x)-2)/7);
end.
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.