// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
ReadlnString('>').ToCharArray.Shuffle.Println('')
end.
<u><em>Тестовое решение:</em></u>
> Информатика
фмИатрниаок
Все кроме B3B 13 имеют ошибки
Begin
var r:=1.0;
for var i:=1 to 7 do r*=0.25;
write (15/(256*r));
end.
Опал шар гнать да вы же по апр до акт подвал да во
Збс, клевое задание................