Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.
Начало
1. 11 - 0
2. 7 - 4
3. 7 - 0
4. 3 - 4
5. 3 - 0
6. 0 - 3
7. 11 - 0
8. 7 - 4
Бег......Шаг
бег - Бог - бок - бак - мак - маг -шаг
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.