8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / MONKS02

program Monks02;
var
x,y,z,i,n,m:byte;
a,r,k:real;
begin
Writeln('Insert the number monks, cakes');
Readln(n,m);
k:=m/5; i:=trunc(k);
for y:=1 to i do
begin
r:=(2*n-m-9*y) mod 19;
if r=0 then begin
a:=(2*n-m-9*y)/19;
x:=trunc(a);
if x>m/10 then break;
z:=n-x-y;
Writeln('Main:',x,#32'Usual:',y,#32'Students:',z);
end;
y:=y+1;
end;
end.