Помошите решить в Pascal система уравнений. Y=sinx*lgx при x>4.5 y=cos^2( x) при x<=4.5 Очень надо!!! (((

хм.. . приблизительно так:
begin
var
x,y: double;
begin
write('Write x: ');
readln(x);
if (x>4.5) then begin
y:=sin(x)*lg(x);
end
else
begin
y:=cos( x)*cos(x);
end;
write('y=: ',y);
end;

если есть-ошибки прошу помиловать)) ) лет 7 назад Паскалем баловалась...