Приведите примеры линейного алгоритма .
Var x:integer; begin writeln('x='); readln(x); writeln('вы ввели:',x); x:=0; writeln('произошла замена. Теперь x=',x); end.