Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.

var n, number, max:integer;

begin

n := 3;

while n > 0 do

begin

 readln(number);

 if n = 3 then max := number

 else if max < number then max := number;

 n := n - 1;

end;

writeln('Максимальное число = ', max);

end.