Нужно запрограммировать в паскале задачку. С блок-схемой и пояснениями, если можно
С клавиатуры вводится целое число N<100. Вывести на экран все его делители. Если число простое (делится только на себя и на 1), вывести сообщение.

var n,i,k:Integer;beginwrite ('Введите целое число (n<100): ');readln (n);for i:=1 to n doif n mod i = 0 thenbeginwriteln ('Делитель числа ',n,': ',i:2);k:=k+1end;if k=2 then writeln('Число ',n,' простое')end.