Определите результат выполнения фрагмента программы p:=0; for x:=1 to 5 do p:=p+x; writeln('p=',p);
Р будет равно 15 1 + 2 + 3 + 4 + 5 = 15