Question

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

Answer 1

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