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

Var s: string;
//описание функции
function lng(s1: string): string;
begin
if (length(S) div 10gt;=1) and (length(S) div 10 lt;10) then lng:=DA;
if (length(S) div 10 =0) then lng:=NET;
if (length(S) div 10 gt;=10) then lng:=Число знаков в строке не двухзначное или однозначное;
end;
//начало программки
begin
//ввод необходимых черт
Write(Введите строчку: ); Readln(s);
writeln (lng(s));
end.