составить метод блок схему и программку для решения задачи ввести число

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