Здесь список всех тегов для HTML:
http://www.astro.spbu.ru/staff/afk/Teaching/Help/Tegs.htm
Uses crt;
var
n,p:integer;
begin
writeln('Введите число: ');
readln(n);
p:=1;
while n>=10 do begin
p:=p*(n mod 100 div 10);
n:=n div 100;
end;
writeln('p = ',p);
end.
Пример:
Введите число:
236584
p = 96
................................................
используется div (k;(10**n))=ответ