А фотку учебника? Ну или автора
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите коэффициенты a и b:');
Write('Корень уравнения равен ', -b / a:0:3)
end.
Эмммм.....
prorgam psck;
begin
writeln('Информационное сообщение');
end.
1.Взять тряпку.2.Намочить тряпку.3.Тереть вверх,вниз,вправо,влево.