Приведите примеры линейного алгоритма .

varx:integer;beginwriteln('x=');readln(x);writeln('вы ввели:',x);x:=0;writeln('произошла замена. Теперь x=',x);end.