ПОМОГИТЕ ПОЖАЛУЙСТА! Составьте программу позволяющую вводить с клавиатуры 6…

Паскаль, одномерный массив var a: array [1… 6] of integer; i, max: integer; beginfor i: =1 to 6 do read (a[i]); max: =a[1]; for i: =1 to 6 doif a[i]>max then max: =a[i]; writeln (max); readln; end.