Лабораторные / Лаб_2 / Вар_12 / TEST2B

program test2b;
var
	i:real;
	m,p:integer;
begin
	write('Введите значение цикла for .. to .. do: '); (**)
	read(m);
	p:=1;
	
	i:=1;
	while i<=m do
	begin
		p:=round(p*i);
		i:=i+1;
	end;

//	for i:=1 to m do
//		p:=round(p*i);
//	writeln('Значение вычислений p:=p*i в теле цикла for равно: ',p); (**)
	i:=10;
	repeat
		p:=p div round(i);
		i:=i-1
	until i=0;
	writeln('Значение вычислений p:=p div i в теле цикла равно: ',p); (**)
	while  i<=m  do begin
		p:=p+round(i);
		i:=i+1
	end;
	writeln('Значение вычислений p:=p+i в теле цикла равно: ',p)
end.