program solve_equation;
vara, x: real;
beginwriteln('Введите значение переменной a:');readln(a);
if a = 0 thenbeginwriteln('Уравнение имеет бесконечное множество решений');endelsebeginx := 0;writeln('Решение уравнения ', a:0:2, '* x = 0:', x:0:2);end;
end.
program solve_equation;
var
a, x: real;
begin
writeln('Введите значение переменной a:');
readln(a);
if a = 0 then
begin
writeln('Уравнение имеет бесконечное множество решений');
end
else
begin
x := 0;
writeln('Решение уравнения ', a:0:2, '* x = 0:', x:0:2);
end;
end.