С клавиатуры вводится целое число, содержащее не более 7 цифр. Определить максимальную цифру в этом числе.
Программа Pascal ABC. Нужно использовать цикл с предусловием.

Какие буквы за что обозначены?

a - число, которое вводишьb - текущая цифра числа: сначала последняя, потом предпоследняя и т.к.max - максимальная цифра числа

ясно,спасибо огромное!)

Var a,b,max:integer;beginreadln(a);max:=-maxint;while a>0 dobeginb:=a mod 10;a:=a div 10;if b>max then max:=b;end;writeln(max)end.