//PascalABC.NET
begin
var a := 125;
var b := 25;
Write($'{b} составляет {25*100/125}% от числа {a}')
end.
