Элементная база компьютеров первого поколения - это: Электронная лампа
Кажется понял в чем проблема.У вас не работало т,к, отсутствовали begin и end; в case .Плюс еще пару недочетов в коде
Каждый символ это один бит. "Вон та, крайнаяя справа - это наша Зорька." Всего получается 41 битов
Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.