СРОЧНО! НАПИШИТЕ ПРОГРАММУ ПО ПАСКАЛЮ.
Дано трехзначное натуральное число A. Требуется определить, какая из его цифр большая.
Исходные данные: 835.
Результат: 8.

var a,c,k,max,chislo: integer;beginreadln(chislo);max:=-10;c:=1;repeata:=chislo div 10c:=c+1;until a=0;k:=10;for i to c do beginif (chislo mod k)> max then max:=(chislo mod k)chislo:=chislo mod k;end;writeln ( max);end.