Ответ:
<u>25,439,040 - бит. 3,179,880 - байт 3,179.88 - кб 3.1 мб</u>
Объяснение:
Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.