var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
Бумага та чорнило та думки
program z1;
var x:integer;
begin
writeln('введите Х');
readln(X);
if x>0 then writeln('число положительное') else writeln('число не положительное');
end.