Программа на языке Pascal для вычисления корней неполного квадратного уравнения ax^2 + c = 0:

program QuadraticEquation;
var
a, c, x: real;
begin
write('Введите значение a: ');
readln(a);
write('Введите значение c: ');
readln(c);
x := sqrt(-c/a);
writeln('Корень уравнения ', a:0:2, 'x^2 + ', c:0:2, ' = 0 равен: ', x:0:2);
end.

Программа сначала запрашивает у пользователя значения коэффициентов a и c, затем вычисляет корень x по формуле x = sqrt(-c/a) и выводит его на экран.