Любви нестан даредблан и тариэла, и тинатин и
!

Var a : array[1..12] of integer; i,max : integer; begin for i: =1 to 12 do begin; read(a[i]); if a[i]> max then max: =a[i]; end; writeln(max); end.