(A*a+b*b)/b*b в Паскаль

Предыдущий
вопрос Следующий
вопрос

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.