program p_1
var
a:string
begin
writeln ('Vvedite nazvanie rek');
read (a);
if (a='Волга,Днепро,Нёман,Енисей')then
writeln ('В Беларуси протекают только Днепро,Нёман');
end.
program p_1
var
a:string
begin
writeln ('Vvedite nazvanie rek');
read (a);
if (a='Волга,Днепро,Нёман,Енисей')then
writeln ('В Беларуси протекают только Днепро,Нёман');
end.