Напишите фрагмент программы на паскале ввода исходных данных для массивов, определённых в 1 и 2.

Таратата uses crt; var   a:   array [1..5]  of   real; q: integer; begin clrscr;           for   q: =q  to   12  do           begin                     write ( 'a ',1: 2, '] = ') ;                       readln(a[q])           end; тратата

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а