program GradiSinUnCos;

var
Gradi: String;

begin
Write('Ieavdi suuda graadus: ');
Readln(Gradi);
{Funkcija kura paker gradu sinusu un kosinusu
piemeram
Function Sine(num:word) : real;
Begin
Sine := sin(num) / (180 / Pi);
end;

Function Cose(num:word);
Cose := cos(num) / (180 / Pi);
end;
}
WriteLn({izvadam suuda cosinusu un sinusu})
end.

gandriiz gatava programma tik saliec visu pa plauktinjiem