1. Ввод массива вручную:
var
a:array [1..5] of integer;
i:integer;
begin
for ......
readln (a[ ........]);
for ........
write (a[........]:2);
end.

Помогите дополнить программу,пожалуйста!