По заданному алгоритму составьте код программы Помогите пожалуйста! Очень срочно!
Var x,y,k:integer; begin Writeln('Привет,я-alconafft'); writeln('введите числа х'); read(x); k:=x mod 10; write(k); end.