Информатика. Pascal ABC. Составьте программу ввода элементов массива d [1..6] с клавиатуры и вывода на экран элементов с положительными значениями.

Огромное спасибо ).

vard: array [1..6] of integer;i:integer;beginfor i:=1 to 6 doread(d[i]);for i:=1 to 6 do beginif d[i]>0 thenwrite(d[i],' ');end;end.