За несколько буханок хлеба по две монеты и несколько банок консерв заплатили 100 монет.Сколько могли купить консерв и хлеба?вывести все возможные варианты — Pascal(Паскаль)

uses crt;
var i,j:byte;
begin
clrscr;
writeln('Цикл for:');
for i:=0 to 50 do
for j:=0 to 20 do
if i*2+j*5=100 then
writeln(i,' - ',j);
write('Нажмите Enter...');
readln;
clrscr;
writeln('Цикл while:');
i:=0;
while i<=50 do
 begin
  j:=0;
  while j<=20 do
   begin
    if i*2+j*5=100 then
    writeln(i,' - ',j);
    j:=j+1;
   end;
  i:=i+1;
 end;
write('Нажмите Enter...');
readln;
clrscr;
writeln('Цикл repeat:');
i:=0;
repeat
  j:=0;
  repeat
    if i*2+j*5=100 then
    writeln(i,' - ',j);
    j:=j+1;
  until j>20;
  i:=i+1;
until i>50;
write('Нажмите Enter...');
readln;
end.