Решите квадратное уравнение разными способами

9x - 22 = -x^2
x^2 + 9x - 22 = 0
D = 81 + 88 = 169
x1 = -9+13/2 = 4/2 = 2
x2 = -9-13/2 = -22/2 = -11

9x - 22 = -x^2
x^2 + 9x - 22 = 0
x1 + x2 = -9
x1*x2 = -22
x1 = -11
x2 = 2

----

x - 5 = x^2 - 25
x^2 - 25 - x + 5 = 0
x^2 - x - 20 = 0
D = 1 + 80 = 81
x1 = 1+9/2 = 5
x2 = 1-9/2 = -4

x - 5 = x^2 - 25
x - 5 = (x-5)(x+5)
x - 5 = 0
x1 = 5
x+5 = 1
x2 = -4

x - 5 = x^2 - 25
x^2 - 25 - x + 5 = 0
x^2 - x - 20 = 0
x1 + x2 = 1
x1*x2 = -20
x1 = 5
x2 = -4

Я так понимаю, что нужно написать программу. Только было бы неплохо указывать язык программирования. Что ж, напишу, пожалуй, на Паскале (Pascal):

а)
Program P1;
uses crt;
var D, x1, x2: real;
begin
clrscr;
D:=15-4*10*(-3.4);
if D<0 then writeln ('Ответ: Действительных корней нет.') else begin
x1:=(15+sqrt (D))/(2*10);
x2:=(15-sqrt (D))/(2*10);
writeln ('Ответ: x1=', x1, '; x2=', x2);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.