Составить алгоритм блок схему и программу для решения ввести число если оно положительное разделить на 4 если отрицательное или равно нулю умножить на 5

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