Как в Pascal ABC найти из четырёх чисел большее!

Question

Нужен код программы для того что бы найти наибольшее число из четырёх введёных, да когда вводиться 2 одинаковых числа то программа выдавала Предупреждение!

Ангельский Волк · Accepted Answer

Program Sample;
const
 n = 4;
var
 i, maxValue, inpValue: integer;
begin
 maxValue := low(maxValue);
 for i := 1 to n do
 begin
 Write('Введите число: ');
 ReadLn(inpValue);
 if maxValue < inpValue then
 maxValue := inpValue;
 end;
 WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.

Анюта · Answer

Допусти что первое число большее и сравнивай его по-очереди с остальными. Если другое больше то бери его большим. 
А предупреждение при вводе каждого числа сравнивать его с предыдущими.