Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
"15225", у меня вывело это) Поставь, если нужно, пробелы, когда выводишь c1, c2, c3 и с4. Тогда "1 52 2 5")
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк
===== PascalABC.NET =====
begin
var (a, b, c) := ReadReal3('Введите длины сторон через пробел:');
var P := a + b + c;
var p2 := P / 2; // полупериметр
var S := Sqrt(p2 * (p2 - a) * (p2 - b) * (p2 - c)); // ф-ла Герона
Println('P =', P, ' S =', S)
end.