По заданному алгоритму составьте код программы
Помогите пожалуйста! Очень срочно!

var x,y,k:integer;beginWriteln('Привет,я-alconafft');writeln('введите числа х');read(x);k:=x mod 10;write(k);end.