написанные программы / задание №1 / GENERATE

Program Generate_Simmetric_Polygon;
Type
TCoord = Record { - Љ®®а¤Ё­ в­л© вЁЇ - }
X, Y: Real;
End;
Var
Fout: Text;
i, N: Integer;
Radius, Ungle: Real;
Center, Point: TCoord;
Begin
Assign(Fout,ParamStr(1));
Rewrite(Fout);
WriteLn(' +++ ѓҐ­Ґа жЁп а ў­®бв®а®­­ҐЈ® ¬­®Ј®гЈ®«м­ЁЄ  +++ ');
WriteLn;
Write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ўҐаиЁ­: '); ReadLn(N);
WriteLn(Fout,N);
Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл 業ва  X: '); ReadLn(Center.X);
Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл 業ва  Y: '); ReadLn(Center.Y);
Write('‚ўҐ¤ЁвҐ а ¤Ёгб: '); ReadLn(Radius);
Ungle:=0;
For i:=1 To N Do
Begin
Point.X:=Center.X + Radius*Cos(Ungle);
Point.Y:=Center.Y + Radius*Sin(Ungle);
Ungle:=Ungle - 2*pi/N;
Writeln(Fout,Point.X:0:2,' ',Point.Y:0:2);
End;
Close(Fout);
End.