У Вас файл должен заканчиваться .html
Проще всего это сделать открыв текстовый блокнот, написать туда Ваш HTML код, нажать свойства -> сохранить как -> Выбрать внизу тип "Все файлы" и после чего в названии файла написать [Названия файла].html
После чего ищите место куда Вы его сохранили. Как найдёте, нажимаете правую кнопку мыши и открыть при После чего выбираете браузер которым Вы пользуетесь.
Если же Вам нужно изменить файл, тогда его открываете не через браузер, а через любой текстовый редактор.
1. while
var i,n: integer;
p: real;
begin
write('Введите число: ');//n<171
read(n);
p:=1;
i:=1;
while i<=n do
begin
p:=p*i;
i:=i+1
end;
write ('Произведение чисел от 1 до ',n,' равно ',p)
end.
2. repeat
var i,n: integer;
p: real;
begin
write('Введите число: ');//n<171
read(n);
p:=1;
i:=1;
repeat
p:=p*i;
i:=i+1
until i>n;
write ('Произведение чисел от 1 до ',n,' равно ',p)
end.