var
s: string;
begin
Read(s);
if pos('Р', s) <> 0 then
WriteLn('да')
else
WriteLn('нет')
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s: string;
begin
Read(s);
if pos('Р', s) <> 0 then
WriteLn('да')
else
WriteLn('нет')
end.