При вычислении больших чисел вылетает прога

[Пенек]

Не могу понять чем можно заменить, и главное что, чтобы прога не вылетала при попытке найти дискриминант с большими числами, объясните пожалуйста неучу)


program kvadrat;

{$APPTYPE CONSOLE}


Var a,b,c,rez: Integer;
d1,d2,x1,x2:Extended;
Begin
Writeln('Vvedite A');
Readln(a);
Writeln('Vvedite B');
Readln(b);
Writeln('Vvedite C');
Readln(c);
rez:=sqr(b)-4*a*c;
x1:=(-b+Sqrt(rez))/(2*a);
x2:=(-b-Sqrt(rez))/(2*a);
Writeln('D=',rez);
if rez > 0 then begin
Writeln('x1=',x1:10:10);
Writeln('x2=',x2:10:10);
Readln
End;
If rez = 0 then begin
Writeln('x1=x2=',x1:10:10);
Readln
End;
If rez < 0 then begin
Writeln('net deistvitelnogo resheniya');
Readln
End;
End.

к стилю просьба не придираться, первая моя самостоятельная работа

[Alex11223]

Большими — это какими?

[Пенек]

ну с двузначными уже вылетает)

[Аватар]

Rez почему Integer? Нужно Real или Extented

[DarkKlo]

integer - не поддерживаем очень большие числа

[Пенек]

ясно, сейчас проверю)

[Пенек]

не работает, все равно вылетает, у меня это из - за мелочи, или надо заново переделывать?

[Аватар]

А что сообщает? И Rez может быть отрицательным - тоже вылетит, нельзя корень извлекать из минусов

[Пенек]

да ничего не сообщает, жму enter, и все, выходит

[DarkKlo]

Var a,b,c,rez: Word;

попробуй вот так заменить