От программки, записанной на алгоритмическом языке, перейдите к записи программки на

Запись на языке PascalABC

var i,d: integer;

begin

readln(d);

i:=1;

repeat

 i:=i + 1;

until d mod i = 0;

if d = i then

 writeln(d)

else writeln(d,' делится на ', i);

end.

В итоге работы программки

Будет выведен меньший делитель числа d кроме единицы

Блок-схема

На картинке ниже

var i, d: integer;

begin

   readln(d);

   i:=1;

   repeat

       i:=i + 1;

   until d mod i = 0;

   if d = i then

       writeln(d)

   else

       writeln(d / i);

end.