Воплотить программу ,исполняющую вывод решения квадратного уравнения (характеристики a,b,c

pascal?

Skilab

это язык программирования?

А блин,сорри,да ,паскаль

Program kvadratnoe;
var a,b,c,d:real;
begin
 Writeln('Введите коэффициенты:a,b,c');
 readln(a,b,c);
 d:=b*b-4*a*c; if d gt;0 then  
 begin   
  Writeln('x1=',(-b-Sqrt(d))/2*a);   
  Writeln('x2=',(-b+Sqrt(d))/2*a) 
 end; 
 if d=0 then Writeln('x=',(-b/2*a)); 
 if dlt;0 then Writeln('Реальных корней нет')
end.

Program z1;
var a,b,c:integer;
begin
readln(a,b,c);
if (b*b-4ac)gt;0 then
writeln((-b+sqr(b*b-4ca))/4a,(-b-sqr(b*b-4ca))/4a)
end.