program Calculate;
vara, b: Integer;result: Real;
beginwriteln('Enter the value of a: ');readln(a);writeln('Enter the value of b: ');readln(b);
result := (a a + b b) / (b * b);
writeln('The result of the expression (aa + bb) / (b*b) is: ', result:0:2);readln;end.
program Calculate;
var
a, b: Integer;
result: Real;
begin
writeln('Enter the value of a: ');
readln(a);
writeln('Enter the value of b: ');
readln(b);
result := (a a + b b) / (b * b);
writeln('The result of the expression (aa + bb) / (b*b) is: ', result:0:2);
readln;
end.