Решить по информатике через турбо паскаль, вот всё, что сказано в условии : * вычислить квадрат разности двух чисел,вводимых с клавиатуры.

Var A,B:real;
Begin
Write('Введите два числа: ');ReadLn(A,B);
WriteLn('(A-B)^2 = ',Sqr(A-B));
End.