Составьте программу ** паскале, пожалуйста

Question

Составьте программу на паскале, пожалуйста

---

Comments

Если b=4 вывести "Да"? 

---

да

---

"с" никуда выводить не надо?

---

нет

Answer 1

Var b,c:real; 
begin 
b:=1; 
c:=2; 
repeat 
b:=b+1; 
c:=c*b; 
until b=4; 
writeln('Да'); 
end.