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

Var s: string;//описание функцииfunction lng(s1: string): string;beginif (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.