Написать в Паскаль программу для решения следующей задачи. Вводится строка. Написать пользовательскую функцию, которая возвращает строку 'DA', если количество символов в ней двухзначное число и возвращает 'NET', если количество символов однозначное число.

Var s: string;

//описание функции

function lng (s1: string) : string;

begin

if (length (S) div 10>=1) and (length (S) div 10 <10) then lng:='DA';

if (length (S) div 10 = 0) then lng:='NET';

if (length (S) div 10 >=10) then lng:='Число символов в строке не двухзначное или однозначное';

end;

//начало программы

begin

//ввод необходимых характеристик

Write ('Введите строку: '); Readln (s);

writeln (lng (s));

end.