Задача в Pascal

[Neverkaras]

Помогите разобраться с задачей:
Нужно ввести такое число что бы программа вывела на экран сначало 3 а потом 8.
Кто сделает очень прошу написать как именно вы сделали.
Заранее спасибо.

var x,l,m:int;
begin 
readln (x);
l:=0;
m:=0;
while x>0 do
begin
l:=l+1;
if m<(x mod 10) then
begin
m:=x mod 10
end.
x:=x div 10
end.
writeln(l); writeln (m)

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, программа написана с ошибками (например, внутри программы end с точкой (а это признак КОНЦА программы).

во-вторых,
программа выводит (судя по алгоритму): первое число - это число десятичных знаков в числе, второе число - это максимальная цифра в числе.
поэтому варианты, которые вас устроят (вообще их ОЧЕНЬ много), например, такие:
800
128
468
888
и т.д.

[Stilet]

а просто 83 ввести не судьба?

второе число - это максимальная цифра в числе.

А-а-а да да... Не доглядел

[Neverkaras]

Спасибо большое.
На счет ошибки оформления-больше токого не повторится.