Ох, ну блок-схема вот: в ромбе: n>0, далее + и в прямоугольнике n:= div 4, или n<=0, в прямоугольнике n:=n*5, далее конец<br>var
n:integer;
read(n);
write('напишите n');
begin
if n>0 then
n:=n div 4
else
n:=n*5;
read(n);
end;
end.
Могла с составлением программы ошибиться.