// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a, b, c, z: real;
Print('Введите через пробел a, b, c, z:');
Read(a, b, c, z);
Print(z ** 4 + 4 * a * b / Sqr(c))
end.
Процес угадывания, т.е нет факта что произошло угадывание, просто факт действия, удачный или нет.64 = 2 в ст. 66 бит на одну попытку