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

var a ,i , b , c : integer;

f: array[0..8] of char;

begin

for i: =0 to 7 do

read(f[i]);

a: =strtoint(f[0]);

c: =strtoint(f[5]);  

b: =c div a;

write(-sqrt(b),' ' ,sqrt(b));

end.

я хз верно ли я написал переверь ты

Var a, b, c, max, p, h : real; begin write('введите сторону а'); readln (a); write('введите сторону b'); readln (b); write('введите сторону c'); readln (c); while ((c > a+b) or (a> b+c) or (b> a+c)) begin write ('введите повторно сторону с'); readln (c); end; if (a> =b) and (a> =c) then max: =a else if (b> =a) and (b> =c) then max: =b else if if (c> =b) and (c> =a) then max: =c; p: =(a+b+c)/2 h: = 2*sqrt (p*(p-a)*(p-b)*(p-c))/max; writeln ('h= ',h); end.

Program abc; var  a, b, c, d, h, s, p: real; begin    writeln('введите 3 стороны треугольника');     readln(a);     readln(b);     readln(c);     if c > a + b then writeln('ошибка! одна сторона не может быть больше суммы двух других, введите третью сторону ещё раз или перезапустите программу и введите верные данные'); if c > a + b then readln(c); if (a > b) and (a > c) then d : = a  else if (b > c) then d : = b else d : = c; p : = (a + b + c) / 2; s : = sqrt(p * (p - a) * (p - b) * (p - c)); h : = 2 * s / d; writeln('высота равна -  '+h); end.