начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
на языке pascal цикл с постусловием имеет следующий вид: :
repeat < тело цикла> until < условие выхода>на языке си:
do { < тело цикла> } while (< условие продолжения цикла> )в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как условие выхода (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках — как условие продолжения (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»).
var x,y,nod,nok:longint;
begin
read(x,y);
a:=x; b:=y;
while (a>0) and (b>0) do
if a>b then a:=a mod b
else b:=b mod a;
nod:=a+b;
nok:=(x div nod)*y;
write(nok);
end;