vara, b: integer;result: real;
beginwriteln('Enter the values of a and b: ');readln(a, b);
result := (a a + b b) / (b * b);
writeln('Result: ', result:0:2);end.
var
a, b: integer;
result: real;
begin
writeln('Enter the values of a and b: ');
readln(a, b);
result := (a a + b b) / (b * b);
writeln('Result: ', result:0:2);
end.