Найти числа А и В, если известно, что первое четырехзначное число нацело делится на 99, а второе – на 49

uses crt;
var a,b:integer;
begin
{счетчик}
for a:=10 to 99 do
for b:=10 to 99 do
if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then writeln('a=',a,'  b=',b);
{предусловие}
a:=10;
while a<=99 do
 begin
  b:=10;
  while b<=99 do
   begin
    if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then writeln('a=',a,'  b=',b);
    inc(b)
   end;
  inc(a)
 end;
{постусловие}
a:=10;
repeat
 b:=10;
 repeat
  if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then writeln('a=',a,'  b=',b);
  inc(b)
 until b=99;
 inc(a)
until a=99
end.

uses crt;
var a,b,k:integer;
begin
{счетчик}
k:=0;
for a:=10 to 99 do
 begin
  for b:=10 to 99 do
  if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then
   begin
    writeln('a=',a,'  b=',b);
    k:=1;
    break
   end;
  if k=1 then break
 end;
{предусловие}
a:=10;
k:=0;
while (a<=99)and(k=0) do
 begin
  b:=10;
  while (b<=99)and(k=0) do
   begin
    if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then
     begin
      writeln('a=',a,'  b=',b);
      k:=1
     end
    else inc(b)
   end;
  if k=0 then inc(a)
 end;
{постусловие}
a:=10;
k:=0;
repeat
 b:=10;
 repeat
  if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then
   begin
    writeln('a=',a,'  b=',b);
    k:=1
   end
  else inc(b)
 until (k=1)or(b=99);
 if k=0 then inc(a)
until (k=1)or(a=99)
end.

Var
 i,A,B : Word;
Begin
  For i:=1000 to 9999 do
  Begin
    B:=i div 100; A:=i mod 100;
    If ((i mod 99 = 0) and (((A*100+B) mod 49)=0)) and (A>9) then
      Writeln('A= ',A,'  B= ',B);
  End;
End.

for a:=10 to 99 do
for b:=10 to 99 do
if ((100*a+b) mod 99=0)and((100*b+a) mod 49=0) then writeln('a=',a,'  b=',b);