Ввести натуральное число N . Вывести треугольник, содержащий N строк вида

[Arei15]

Ввести натуральное число N . Вывести треугольник, содержащий N
строк вида (например, для N = 5):
++++5
+++4
++3
+2
1

пОМОГИТЕ НАПИСАТЬ НА ЯЗЫКЕ пАСКАЛЬ

А ЕЩЕ ПОДСКАЖИТЕ КАК МОЖНО В ЗАДАЧЕ УЧЕСТЬ SIN(0)/0=1

Заранее СПАСИБО

[russian-stalker]

var
n,i,j:integer;
begin
  readln(n);
  for i:=n downto 1 do
  begin
    for j:=1 to i-1 do
     write('*');
  writeln(i);
  end;
  readln;
end.

[Arei15]

Вот задание

Трижды протабулировать функцию, используя три различных цикла

f(x) =sin(k*pi/n)/(k*pi/n)

на интервале k ∈ [-6ж3 ] k Δ =1 , учтя при этом, что

sin(0)/0=1

1 способ

program LOL;
var f,z,pi:real;
N,k0,x,k,q:integer;
begin
cls;
writeLn(' N');
readLn(N);
k0:=-6;
pi:=3.14;
for K:=0 to N do
begin
K:=k0+1;
f:=sin(K*pi/N)/K*pi/N;
write('f(',f:8:2,') =',f:8:2);
readln(f);

end;
end.


2 способ

program cicleRepeatTabul;
var f,x,N,k0,k:real;
begin
cls;
writeLn('Введите N');
readLn(N);
k0:=-6;
k:=k0+1;
repeat
f:=sin(k*pi/N)/k*pi/N;
write('f(',x:8:2,') =',f:8:2);
readln(f);
until k>3;
end.

3 способ

program cicleWhileTabul;
var f,k0,k,N,pi:real;
begin
cls;

writeLn('Введите N');
readLn(N);
k0:=-6;
k:=k0+1;
pi:=3.14;
while k <= 3 do

begin

f:= sin(k*pi/N)/k*pi/N;
write('f(',f:8:2,') =',f:8:2);
readln(f);
end;
end.

Вот
ЗараНЕЕ Спасибо