Написать в паскаль. Вводится две строки. Написать пользовательскую функцию которая возвращает строку '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.