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.
Помогите плиз. Это Pascal