Даны 12 предметов определить какой из них тяжелее. В паскале (информатика) подскажите очень надо

Question

Людмила Брановец · Accepted Answer

Какой вопрос, такой и ответ 
var n,i:integer;
max:integer;
begin
max:=0;
for i:=1 to 12 do 
begin
readln(n);
if (max<n) then
max:=n;
end;
writeln(max);
end.

Александра Амерьянц · Answer

пожалуйста, описывайте задание подробнее. ведь хочешь помочь - а них_я не понимаешь.
что за предметы? как они даны? что вводить с клавиатуры? в каком виде вывести ответ?