Даны два действительных числа. Возвести сумму этих чисел в квадрат, если первое число...

Question

Даны два действительных числа. Возвести сумму этих чисел в квадрат, если первое число больше второго и возвести разность этих чисел в квадрат в противном случае.

Answer 1

var a,b:integer;
begin
writeln('Vvedite a,b?');
readln(a,b);
if a>b then writeln((a+b)*(a+b)) else writeln((a-b)*(a-b));
end.