Выполнить алгоритм. начало 1.загадай однозначное число не меньше . 2.умножить число на 2. 3.прибавь загаданное число. 4. разделить на загаданное число. 5.результат. конец

Var n:integer;s:real;
begin
writeln('Загадай однозначное число')'
read(n);
s:=n;
s:=s*2+n;
s:=s/n;
writeln(s);
end.

Число не меньше скольки нужно загадать?