Лабораторная работа 6-7 разделить

Лабораторная работа
Тема: составление программ усложненной структуры.
Цель: развить навыки программирования алгоритмов различных структур.
Ход работы
Задание
1.A(m,n)= {█(A(0,n)=n+1; @A(m,0)=A(m-1.1),m>0; @A(m,n)=A(m-1,A(m,n-1)), m,n>0)┤
2.Узнать первую цифру числа.
Выполнение.
1.
2.program dva;
Var x:integer;
Begin
Readln(x);
While x>10 do
x:=x div 10;
writeln(x);
end.