Напишите программу, которая выведет на экран значение true или false, в зависимости от того, является ли введенное число х четырехзначным или нет.

Пожалуйста сделайте
Кому надо фото, 5 задание

procedure foo(n: integer; k: integer := 0);

begin

 if n = 0 then Print(k = 4)

 else foo(n div 10, k + 1)

end;

begin

 var N := ReadInteger();

 foo(N)

end.