Протабулируйте g(x) = √(4 − x^2) на отрезке [-3; 3] с шагом 0,5.

Var a: string;
    words, nums, chars, i, sen: integer;
begin
     readln(a);
     words := 1;
     For i := 1 to Length(a) do
         begin
         If (a[i] = ' ') then inc(words);
         if (a[i] in ['0'..'9']) then inc(nums);
         if (a[i] = #13) then inc(sen);
         if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars);
     end;
     writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences');
end.

Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)

Объект (понятие) может иметь множество признаков, однако не все признаки объекта – равноценны. Нужно отличать основные, существенные признаки объекта, которые составляют саму природу этого объекта и без которых мы не можем его представить. Например, существенным признаком ромба будет то, что ромб есть четырехугольник, стороны которого параллельны и равны между собой. Вокруг существенных признаков группируются второстепенные признаки объекта (или понятия), например, тот факт, что сторона ромба будет длиной пять или двенадцать сантиметров, будет второстепенным признаком.