Л-28 задача-1

program qq;
Uses GraphABC;

procedure os;
    begin
    Clearwindow;
    SetPenWidth(2);
    SetPencolor(clblack);
    Line (100,250,500,250); //Ox
    Line(300,30,300,430); // oY

    Line(490,245,500,250); //стрелка oX
    Line (500,250,490,255);

    Line(295,40,300,30); // срелка oY
    Line (300,30,305,40);

    SetPenWidth(4);
    SetPenColor(clblue);
    Line(495,265,505,275); //буква Х
    Line(505,265,495,275);

    Line(280,30,270,45); // буква У
    Line(268,30,275,39);
end;

var x,r,y,x0,y0,m,n,f:real; i:integer;
begin

os;//рисуем координатную ось через процедуру
SetFontSize(24);//подписываем график
TextOut(25,25,'1)');//вот этим вот текстом

x0:=300;
y0:=250;
i:=0;

MoveTo(round(x0+x),round(y0-y));//устанавливаем начальную точку рисования
for i:=0 to 360 do begin
    r:= round ((i*3.14/180+2)*15); //вычисляем (r) -- расстояние от точки до начала координат
    x:= round (r*cos((i+2)*3.14/180));//вычисляем х-координату
    y:= round (r*sin((i+2)*3.14/180));//вычисляем у-координату
    LineTo (round(x0+x),round(y0-y),clred);//Рисуем отрезок от точки (красным цветом)
end;

readln;

os;//рисуем координатную ось через процедуру
SetFontSize(24);//подписываем график
TextOut(25,25,'2)');//вот этим вот текстом
x0:=300;
y0:=250;

while f<=2*pi do
  if cos(f)<>0 then //пока косинус не равен0
    begin
      r:= round ((sin(f)/cos(2*f))*70);//вычисляем (r) -- расстояние от точки до начала координат
      x:= round (r*cos(f));//вычисляем х-координату
      y:= round (r*sin(f));//вычисляем у-координату
      PutPixel (round(x0+x),round(y0-y),clred);//Ставим точку в позиции (X, Y) красным цветом
      f:=f+0.001; //увеличиваем переменную на 1/1000
    end;
readln;

os;//рисуем координатную ось через процедуру
SetFontSize(24);//подписываем график
TextOut(25,25,'3)'); //вот этим вот текстом
x0:=300;
y0:=250;
i:=0;
r:= round (((3*i+1)*3.14/180)*8);//вычисляем (r) -- расстояние от точки до начала координат
x:= round (r*cos((i+2)*3.14/180));//вычисляем х-координату
y:= round (r*sin((i+2)*3.14/180));//вычисляем у-координату
MoveTo(round(x0+x),round(y0-y));

for i:=0 to 360 do begin
    r:= round (((3*i+1)*3.14/180)*8);//вычисляем (r) -- расстояние от точки до начала координат
    x:= round (r*cos(i*3.14/180));//вычисляем х-координату
    y:= round (r*sin(i*3.14/180));//вычисляем у-координату
    LineTo (round(x0+x),round(y0-y),clred);//Рисуем отрезок от точки (красным цветом)
    end;
end.