Question

[ Programowanie w Pascalu ]
Proszę o pomoc. Wyskakuje mi 1 błąd "syntax error ":"expected but "(" found" dotyczący tej linijki, za którymi umieściłam wykrzykniki. Dopiero się uczę i jeśli znajdziecie jakieś inne błędy, albo macie
cenne rady to piszcie.
Zadanie Silnie
Wartość k−tej silni wielokrotnej z liczby n (oznaczaną przez n z k wykrzyknikami) obliczamy ze
wzorów n...! = 1, jeśli 0<=n=k (we wszystkich
wzorach występuje po k wykrzykników). Napisz program służący do obliczania wartości silni
wielokrotnych.

Wejście

W pierwszej linii wejścia znajduje się jedna liczba całkowita t<=10 oznaczająca liczbę testów.
W kolejnych liniach znajdują się poszczególne testy. Każdy z nich składa się z dwóch liczb
całkowitych, n oraz k (1<=n,k<=12).

Wyjście

Dla każdego testu wypisz w osobnej linii wartość k−tej silni liczby n.

Przykład

Wejście:
3
5 1
5 2
10 4

Wyjście:
120
15
60

program ksilnie;
function sil(n,k:integer):longint;
var i,j:integer;
begin
sil:=1;
if n>=k then
begin
i:=n;

while i>=1 do

begin

sil:=sil*i;
i:=i−k;

end;
end;
end;
var t,n,k,i,j:integer;
readln(t);
for j:= 1 to t do
begin
read(n,k); !!!!!!
writeln(sil(n,k));
end;
readln;
end.

Answer 1

Zjadłaś jednego begina, sformatowałem kod i teraz wszystko ładnie widać, poza tym jednym beginem program działa poprawnie.

P.S wydaje mi się, że jeden test jest zły, mianowicie 10 4 -- > 10*6*2 = 120, a nie 60