Вчем может быть проблема? 50 !

program z51;

var

n,m,p,k: integer;

begin

n: =35;

m: =15;

p: =4;

k: =0;

if (n< =35) or (p< 3) then

begin

k: = m div(p-2);

if (m div(p-2)< > 0) then

begin

k: =(m+n)div p+k;

k: =k+1;

end

else

begin

k: =(n-m)mod(p-1)+k;

k: =k-1;

end

else

if ((m+n)div(p+3)> 2) then

k: =k+1;

end

writeln(k);

end.

program z51;

var

 n,m,p,k:integer;

begin

 n:=35;

 m:=15;

 p:=4;

 k:=0;

 if (n<=35) or (p<3) then

 begin

   k:= m div(p-2);

   if (m div(p-2)<>0) then

   begin

     k:=(m+n)div p+k;

     k:=k+1;

   end

   else

   begin

     k:=(n-m)mod(p-1)+k;

     k:=k-1;

   end

 end  { не хватает }  

 else if ((m+n)div(p+3)>2) then

   k:=k+1;

{  end  лишний }

 Writeln(k);

end.

Объяснение:

Проблема в том, что end указан не там, где надо и это ломает синтаксис программы, посему компилятор ругается. По хорошему нужно было привести сообщение компилятора, а не спрашивать что не так. Чьлбы не ошибваться с логикой, пишите программу с отступами 0 будет видна структура.