Напишите программу на языке паскаль
По алгоритму

Алг
Нач вещ p,s
P:=2
S:=0
Нц
P:=p*1.5
S:=s+p
Кц при p>5
Вывод S
Кон

Только на стандарте школьной программы.

А что на изображении?я просто с мобильной версии.

Там сфотонрафирован код и его исполнение

Спасибо!!

На какой программе проверял?

Program Test;Var S, P: real;BeginP := 2;S := 0;RepeatP := P * 1.5;S := S + P;Until (P > 5);Writeln('S = ', S);End.