Склавиатуры задано целое число n< 5.если оно положительное. то вывести на экран его название в словесной форме.в противном случае найти квадрат этого числа. , 9 класс

var

a:integer;

begin

writeln('Num'); readln(a);

if (a > 0) and (a < 5) then begin

 case a of  

 1:writeln('Один');

 2:writeln('Два');

 3:writeln('Три');

 4:writeln('Четыре');

 end

     end

else

 writeln(sqr(a));

end.

Дискретность - это свойство алгоритма, когда алгоритм разбивается на конечное число элементарных действий (шагов) .
Понятность - свойство алгоритма, при котором каждое из этих элементарных действий (шагов) являются законченными и понятными.
Детерминированность - свойство, когда каждое действие (операция. указание. шаг. требование) должно пониматься в строго определённом смысле, чтобы не оставалась места произвольному толкованию. чтобы каждый, прочитавший указание, понимал его однозначно.
Массовость - свойство, когда по данному алгоритму должна решаться не одна, а целый класс подобных задач.
Результативность – свойство, при котором любой алгоритм в процессе выполнения должен приводить к определённому результату. Отрицательный результат также является результатом.

Procedure F(n: integer);
begin
  if n>0 then begin
    Write (n);
    F(n-2);
    F(n div 4);
    end
end;

begin
  F(9);
end.

На выходе будет 97531112

Если нужна трассировка, её можно сделать примерно так:

procedure F(n: integer);
begin
  Writeln('Вход');
  if n>0 then begin
    Writeln ('В выходную строку: ',n);
    Writeln('Вызов F(n-2)');
    F(n-2);
    Writeln('Вызов F(n div 4)');
    F(n div 4);
    end;
    Writeln('Выход')
end;

begin
  F(9);
end.

Результат трассировки:
Вход
В выходную строку: 9
Вызов F(n-2)
Вход
В выходную строку: 7
Вызов F(n-2)
Вход
В выходную строку: 5
Вызов F(n-2)
Вход
В выходную строку: 3
Вызов F(n-2)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 2
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход