// 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.
// 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.
a, b, c, z, out: real;
begin
writeln("Введите a, b, c, z: ");
readln(a, b, c, z);
out := z * z * z * z + 4 * a * b / (c * c);
writeln("Равно: ", out);
end.