Пусть задана функция, вычисляющая sin от аргумента x, а процедура очищает экран, если результат функции равен 0 — Pascal(Паскаль)

uses crt;
function MySin(x:real):real;
begin
MySin:=sin(x);
end;
procedure Screen(x:real);
begin
if x=0 then clrscr
else write('Синус не равен нолю!');
end;
var x:real;
begin
clrscr;
write('x=');
readln(x);
writeln('Синус ',x:0:2,'=',MySin(x):0:2);
write('Press Enter..');
readln;
Screen(MySin(x));
readln
end.