Дано натуральное число. Если в нем есть цифры «2» и «5», то определить, какая из них расположена в числе левее. Если одна или обе эти цифры встречаются в числе несколько раз, то должны быть рассмотрены самые левые из одинаковых цифр.
> надо преобразовать число в строку
Вам бы все в строку преобразовать 
var
n, l: longint;
h2, h5: boolean;
begin
write('n? ');
readln(n);
while (n <> 0) do begin
if (n mod 10) = 2 then begin
l := 2;
h2 := true;
end;
if (n mod 10) = 5 then begin
l := 5;
h5 := true;
end;
n := n div 10;
end;
if h2 and h5 then
writeln('самая левая из цифр 2 и 5: ', l)
else
writeln('в числе нет цифры 2 или цифры 5');
end.
бошку сломаешь) щас попробую написать
А если хотя бы одной цифры нет? А если нет обоих?
надо преобразовать число в строку и исследовать эту строку на предмет кто левее или правее.
⇢