Дано целое трехзначное число а. (i) По заданному алгоритму составьте код программы НА ПАСКАЛЕ, пожалуйста.
Program summa; var x:integer; readln (x); x:=x mod 10; writeln (x); end.