В клетке находятся фазаны и кролики. Всего 15 голов и 42 ноги. Сколько кроликов и фазанов в клетке — Pascal(Паскаль)

uses crt;
var f,k:byte;
begin
clrscr;
for f:=0 to 15 do
for k:=0 to 15-f do
if (f*2+k*4=42)and(f+k=15) then
writeln('f=',f,'  k=',k);
readln
end.