Напишите программу, которая вычислит корни квадратного уравнения.а, b, c вводим с клавиатуры. (на паскале)

Program abc; uses crt; var : a,b,c, : integer; p,s : réal; begin writeln (" введите значения а, b , c); redln (a,b,c); p: =(a+b+c)/2; writeln(p); s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); end.

Var  s: string;   i, j, n: integer;   c: char;   flag: boolean; begin  write('введите произвольное число: '); readln(s);   flag : = false;   n : = length(s);   i : = 1;   while (i < = n) and (not flag) do  begin      c : = s[i];       j : = i + 1;       while (j < = n) and (not flag) do          if s[j] = c then flag : = true else j : = j + 1;       if (not flag) then i : = i + 1  end;   if flag then writeln('символ "', c, '" встречается больше одного раза')  else writeln('все символы уникальны')end.тестовое решение: введите произвольное число: -1453.5462символ "4" встречается больше одного раза

Program prog; uses crt; var a: array [1..30] of integer;       i: integer; begin clrscr; for  i: =1 to 30 do         begin                   write('a[',i,'] = ');         readln(a[i]);         end; for  i: =1 to 30 do         begin         if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then         write (a[i], '  ');         end; end.