Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
var
a: string;
b: integer;
begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;
end.