Пожалуйста помогите За 8 класс

Question

Пожалуйста помогите
За 8 класс

---

Answer 1

2 задача

program myprogram;

var p, s: integer;

p:=2;
s:=0;

begin

p:= p * 1,5;
s:= s + p;

if (p > 5) then
begin
write (s);
end;

end.