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

Program Test;

Var S, P: real;

Begin

P := 2;
S := 0;

Repeat
P := P * 1.5;
S := S + P;

Until (P > 5);

Writeln('S = ', S);

End.