Question

С клавиатуры вводятся 12 чисел . Найти максимальные.       

Answer 1

var max,i,k:integer;

begin

for i:=1 to 12 do begin

readln(k);

if k>max then max:=k;

end;

writeln(k);

end.