У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программы:
program m3;
var i, p: integer;
a: array [1..6] of integer;
begin
for i:= 1 to 6 do a [ i ]: = i + 3;
p:= 1;
for i:= 1 to 6 do
if a [ i ]>5 then p:= p * a [ i ];
writeln (‘p= ‘, p)
end.