Pomoc oko zadatka u pascal-u

Ljudi ako moze neko da pomogne bio bih zahvalan.
k=3, p = 1, r =3 ... trazi se kranji rezultat K ?


var
i,j,k,n,p,r:integer;
begin
read(k,p,r);
n:=0
for j:=p to r do
if j mod 2 = 0 then
n:= n+p
else
n:=n+2*p;
i=o;
repeat
k:= k+ sqr(i-1) + n;
i:=i+1
until i>3;
i:=1;
while (i<5) do
begin
k:= 2*(k div i) +n;
i:=i+2;
end
writeln(k)
end

Potpis

Sky is blue beocause God use wrong hex code.

Šta ti je konkretno problem? Startuješ program i vidiš rezultat, ako program ne može da se kompajlira, koju poruku dobijaš?

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html