Даны две строки: S и S0. Проверить, содержится ли строка S в строке S0. Если да, то вывести "ДА", если не содержится вывести "НЕТ"

Var s, s0:string;

begin

writeln ('Введите строку s:') ;

readln (s) ;

writeln ('Введите строку s0:') ;

readln (s0) ;

if pos (s, s0) >0 then writeln ('ДА') else writeln ('НЕТ') ;

end.

Пример:

Введите строку s:

две

Введите строку s0:

Даны две строки

ДА