Преобразуй алгоритм в программу на языке Паскаль: алг нач вещ p,s p:=2 s:=0 нц p:=p*1.5 s:=s+p кц при p > 5 вывод s кон

program AlgorithmToPascal; var p, s: real; begin p := 2; s := 0; while p <= 5 do begin p := p * 1.5; s := s + p; end; writeln(s); end.