Фотобарабан
..........................
В строке "Слово не воробей, вылетит — не поймаешь!" 40 символов.
При использовании кодировки Unicode размер составит
40*16 бит = 40*16/8 байт = 40*2 байт = 80 байт
Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840