Нарисовать 50 концентрических окружностей с точкой в центре. паскаль рисует только одну окружность, вот код: uses graphabc; var r,y,x: integer; begin setwindowsize(800,600); y: =300; x: =400; for r: =1 to 50 do circle(x,y,r); end.

Ты перед END. должен добавить выражение которое увеличивает r на один пока r не станет 50. r=r+1; . Но это не точно (про выражение) , а суть правильна.