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

Question

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

---

Answer 1

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.
Очень плохое качество, второй пример вообще не видно