Найти самую большую цифру трехзначного целого числа через паскаль, , заранее

VAR
 n,max:LongInt;
BEGIN
 WriteLn('Введите трехзначное число:');
 ReadLn(n);
 max:=0;
 Repeat
  If (n mod 100)>max then max:=(n mod 100);
  n:=n div 100;
 Until n=0;
 WriteLn('Самое большое число в трехзначном числе: ',max);
 Readln;
END.

Текстовый редактор предназначен именно для редактирования текста, четкого выставления знаков, например написания кода программ, просмотра файлов данных и т.п. Например заменить русской "у" латинское "y" будет считаться ошибкой

Текстовый процессор предназначен для создания и редактирования документов которые не предназначены для чтенья компьютером, но человеком. Когда внешний вид важнее реально содержащихся знаков ( допустимо заменить русской "у" латинское "y"). Так же там есть форматирование (шрифт, размер..), вставка обьектов типа рисунков и прочее внешнее оформление

Тем что в первом выражении задано условие a больше в: и теперт,стало что а = b

дальше мы сделали теперь a = c

значит значение а уже равно с

а в другом блоке кода

тоже самое выражение но появилось уже else значит условие выполниться тогда и только тогда, когда будет условие if фальшивкой

а в данном примере он правдивое, значит условие else не произойдет  

вот пример  

int a = 5;

int b = 5;

int c = 5;

if a = b:

a = c

где будут различны

int a =6 ;

int b = 7;

int c = 8;

if a < b: a != b

a = b;

a = c;

все теперь значения разные

Объяснение: