Помогите решить задачу по Turbo Pascal пожалуста

Доброго времени суток.

Вставлю и я свой пятак и тоже для первой задачи.

А ведь можно обойтись и без n обращений к функциям Pow() или Exp(). Можно просто умножение юзать, вычислив синус только один раз.

Buf := 1;
Sum := 0;
SinX := Sin(x);
fot i:=1 to n do begin
Buf := Buf * SinX; {вычисляем элемент суммы}
Sum := Sum + Buf; {и суммируем}
end;

Ввод / вывод вам уже показали как делается.

Удачи!

Вы просите не помочь, а хотите что бы за Вас решили!
Первую я Вам сделаю, вторую только подскажу как сделать, а третью сами.
Program p1;
Var
j,n : Integer;
Sum,x : Real;

Function Pow(number: Real;n: Integer):Real;
Var j: Integer;
pr: Real;
Begin
pr:=number;
For j:=2 to n do
Pr:=Pr*Number;
Pow:=pr;
End;
Begin
Writeln('Input n, x');
Readln(n,x);
Sum:=0;
For j:=1 to n do
Sum:=Sum+Pow(sin(x),j);
Writeln('Sum= ',Sum);
End.

Во второй задаче, проверка на кратность пяти, вот:
If (x mod 5)=0
Then
Writeln('число кратно 5')
Else
Writeln('число не кратно 5');

А для третьей, садитесь за книжки, и учите язык, Вам его не просто так преподают.

Верно! Надо заниматься! Вот другой вариант 1-й задачи, но вместо вещественного числа X мы вводим градусы:

program Mine;
uses crt;
var x,S,buf:real;
n,i:integer;
const pi=3.141593;
begin
clrscr;
write(' Vvedite stepen` N -> ');
readln(n);
write(' Vvedite ugol ( 0..360 ) -> ');
readln(x);
S:=0;
x:=x*pi/180;
buf:=ln(sin(x));
For i:=1 to n do
begin
S:=S+exp(i*buf);
writeln(S:0:7);
end;
writeln(' S = ',S:0:7);
readkey;
end.