Var A,B:real;
Begin
Write(Введите два числа: );ReadLn(A,B);
WriteLn((A-B)^2 = ,Sqr(A-B));
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.