Вчем может быть проблема? 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 будет видна структура.