//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var а := ReadReal('а=');
var б := ReadReal('б=');
PrintLn((а*а+б*б)/б*б);
end.
begin
readln(a,b);
writeln((a*a+b*b)/(b*b));
end.
Компилятор: Free Pascal Compiler 2.6.2
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var а := ReadReal('а=');
var б := ReadReal('б=');
PrintLn((а*а+б*б)/б*б);
end.