Не видно, я ничего разобрать не могу
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
99000099
если нужна прога то вот
program pr_1;var x,c,c1,k,y,max:longint;beginmax:=0;for x:=1000 to 9999 do beginfor y:=1000 to 9999 do beginc:=x*y;c1:=c;k:=0;while c<>0 do begink:=k*10+(c mod 10);c:=c div 10;end;if ((k=c1) and (k>max)) then max:=k;end;end;writeln('ответ:',max);writeln('x=',x);writeln('y=',y);end.
var
m, n, x : integer;
begin
write('введите m ');
readln(m);
write('введите n ');
readln(n);
writeln('значение функции y=x^2+8x-6 на промежутке от m до n');
for x := m to n do writeln('x=', x, ' y=', sqr(x)+8*x-6);
end.