Придумайте свою цепочку преобразований произведённого трёх значного числа приводящему к такомуже результату и ещё там должно быть число x

100: 200 =х .

Program m;   var old, new: real;   k: integer;   begin   write('vvod x');   readln(old);   write('vvod x');   readln(new);   x: =0;   repeat   if new*old< 0 then k: =k+1;   old: =new;   write('vvod x');   readln(new)   until new=0;   if k> 0 then   writeln('posledovatelnost menyaet znak', k, 'raz')   else writeln('posledovatelnost ne menyaet znak');   end.

Program pr3; var poroda: string; age,holka: real; n,i,k: integer; begin repeat write ('введите количесвто собак на выстовке: '); readln (n); until n> 0; k: =0; for i: = 1 to n do begin writeln ('введите по отдельности: породу, возраст и высоту холки очередной собаки: '); readln (poroda); readln (age); readln (holka); if (poroda='боксер') and (age> =2) and (age< =3) and (holka> =55) then k: =k+1; end; if k> 0 then writeln('число боксеров c нужным возрастом и холкой на выставке: ', k)  else writeln ('боксеров с нужными критриями навыставке не обнаружено'); end.