Подсчитать количество информации в предложении ( текст набран с компьютерного алфавита): воробей влетел в окно воровать у нас пшено

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.

Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.

Вариант 1. Без операторов цикла.
var
  a,b,c,d:integer;
begin
  Write('Введите 4 натуральных числа: ');
  Read(a,b,c,d);
  if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a));
  if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b));
  if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c));
  if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d));
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775

Вариант 2. С оператором цикла.
var
  i,n:integer;
begin
  for i:=1 to 4 do begin
    Write('Введите натуральное число: ');
    Read(n);
    if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n))
    end
end.

Пример решения
Введите натуральное число: 3
Введите натуральное число: 8
Корень из 8 равен 2.82842712474619
Введите натуральное число: 16
Корень из 16 равен 4
Введите натуральное число: 12
Корень из 12 равен 3.46410161513775

Вариант 3. С массивами
var
  i:integer;
  a:array[1..4] of integer;
begin
  Write('Введите 4 натуральных числа: ');
  for i:=1 to 4 do Read(a[i]);
  for i:=1 to 4 do
    if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i]))
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775