Question

Ajutati-ma imi trebuie urgent. ofer celui ce-mi rs cel mai rapid 20 de puncte
Indicati antetul ,partea declaraticva si partea executabila al Programului TA1.
Program TA1;
var a,b,x:real;
realdn(a,b)
if a<>0 then
begin
x:=-b/a;
writeln( 'Ecuatia are o singura radacina');
writeln(x);
end;
if (a=0) and (b=0) then
writeln ( 'Ecuatia are o multime infinita de radacini');
if (a=0) and (b<>0) then
writeln ( 'Ecuatia nu are sens');
end

Answer 1

antetul : Program TA1
partea declarativa: var a,b,x:real;
partea executabila: mai jos de var pina la sfrisit adica pina la ultimul "end."