Написать в паскаль. Вводится две строки. Написать пользовательскую функцию которая возвращает строку 'da' если количество символов в этих строках одинаково и возвращает 'net' если неодинаково.

Для определения числа символов в строке использована функция length (s).

program paritet;

s1, s2: string;

begin

writeln ('Введите первую строку.');

readln (s1);

writeln ('Введите первую строку.');

readln (s2);

if length (s1) = length (s1) then writeln ('da') else writeln ('net')

end.