program Project5;

{$APPTYPE CONSOLE}

{$R *.res}

uses

System.SysUtils;

var

A, B, C, Di, FirstRoot, SecondRoot: Real;

IsCorrect: Boolean;

begin

IsCorrect := False;

repeat

try

Write('Пожалуйста, введите параметр A,B,C: ');

Readln(A);
Readln(B);
Readln(C);
isCorrect := True;

except

Writeln('Ошибка!Пожалуйста, ведите числовое значение.');

end;

if A = 0 then

Writeln('При A = 0 уравнение не является квадратным, введите другое значение:');

until (IsCorrect) and (A <> 0);
writeln (a,b,c);
end.