Блок-схемы для программ в лабораторной

[Black_butterfly]

1) Определить, является ли число простым.
Вот программа для этого задания:
Var
x:integer;
Begin
Writeln('Введите число');
Readln(x);
If (x div 1=x) and (x div x=1) then Writeln('Число является простым')
else writeln ('Число не является простым');
End.

2) Составить алгоритм, который вычисляет произведение чисел от 1 до n. Значение n вводится с клавиатуры.
Программа для этого задания:
Program MyProg;
Var
N,S,i:integer;
Begin
Write(‘Введите значение n’);
Readln(n);
S:=0;
For i:=1 to n do begin
S:=S*i;
Writeln(‘Произведение=’,S);end;
End.

Проги вроде составила, теперь бы блок-схему к ним еще.

[Mad_Cat]

ваши: 1-я не в жисть не определит простое вы ввели число или нет
во 2-ой при любом n результат буит 0
1

var 
  N,i: integer;
  IsSimple: boolean;
 
begin
  writeln('Введите число: ');
  readln(N);
  IsSimple := True;
  for i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N) 
    if N mod i = 0 then
    begin
      IsSimple := False;
      break;
    end;
  if IsSimple then
    writeln('Число ',N,' простое')
  else writeln('Число ',N,' составное');  
end.

2)

Var
N,S,i:integer;
Begin 
Write('Введите значение n');
Readln(n); 
S:=1;
For i:=2 to n do begin
S:=S*i;
Writeln('Произведение=',S);end;
End.

[Black_butterfly]

А как тогда составить блок-схемы для этих заданий?