Pascal, даю 25 баллов
Дан текст. В нем может быть текст, сколь угодно длинные строки и т.д..
Если в нем встречается число 2557, то на выходе выведите слово URA, если же 2557 не встречается, выведите NO.

Пример

Вход Выход
hgdfjgkdghkdjgkgkd2557gjdlgkdjlg URA

2=5 5=7
NO

Ответ:

Объяснение:

var

 s:string;

begin

 readln(s);

 if (Pos('2557', s)<>0) then writeln('URA') else writeln('NO');

end.