Sinüs Eğrisi Çizimi

program sinus_egrisi_cizimi;
{$APPTYPE CONSOLE}



const pi=3.14159; adim=18; yildiz='*';
var
teta,radyan:real;
sutun:integer;


begin
  writeln;
  writeln('Sinus egrisi cizimi:':30);
  teta:=0;
   while teta<=360 do
    begin
      radyan:=teta*pi/180;
      sutun:=1+round(20*(1+sin(radyan)));
      write(Yildiz:sutun);
      writeln(sin(radyan):20);
      teta:=teta+adim;
    end;
 readln;
end.