Помогите пожалуйста написать программы в Pascal.1) F(x)=sin^2x-cos2x 2)В прямом цилиндре построить осевое сечение

1) var X : Real;
begin
Write('Enter X = '); ReadLn(X);
WriteLn('F(', X, ' = ', sin(X)*sin(X)-cos(2*X):0:5);
end.

2) Rectangle(X1, Y1, X2, Y2); — синтаксис в Help-е