переведите в систему паскаль

var a,c,x:real;
begin
writeln ('Введите А и С: ');
readln(a,c);
X:=((-6)+(sqrt(sqr(6)-4*a*c)))/2*a;
writeln('Ответ:',x:4:2);
end.
Очень плохое качество, второй пример вообще не видно