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

function p(s1,s2:string):string; begin if length(s1)=length(s2) then p:='da' else p:='net' end; Это функция. Если вся программа заключается лишь в нахождении da или net, тогда будет так: var s1,s2:string; function p(s1,s2:string):string; begin if length(s1)=length(s2) then p:='da' else p:='net' end; begin readln(s1); readln(s2); s1:=p(s1,s2); write(s1); end.