Работа в среде Турбо Паскаль. Чтение и составление программ линейных вычислительных процессов

{заголовок программы}
var
x,y,z:real;
begin
writeln('vvedite ugol X v radianah');
read(x);
y:=sin(x);
z:=cos(x);
writeln('sinus ugla raven',y:6:2);
writeln('kosinus ugla raven',z:6:2)
end.

{заголовок программы}
const Pi=3.14; {объявление констант}
var x,x1,y,z:real; {объявление переменных}
begin {тело программы}
writeln('vvedite ugol X v gradusah');
read(x);
x1:=Pi*x/180;
y:=sin(x1);
z:=cos(x1);
writeln('sinus ugla raven',y:6:2);
writeln('kosinus ugla raven',z:6:2)
end.