var a, b, c: real;
begin
read(a, b, c);
writeln('V = ', a * b * c);
writeln('S = ', 2 * (a * b + a * c + b * c));
end.
Эх, что-то мудрено получилось
переменных многовато
Разъемы Питания, поднакопители ,слотв под оперативку, разъемы подключения кнопок управления
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
Writeln('а=0 делает уравнение линейным');
if b=0 then Writeln('Корней нет')
else Writeln('Один корень ')
end
else begin
var d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else
if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end
end.