Question

дано целое трехзначное число a . по заданному алгоритму составте код программы

Answer 1

Program summa;
var
a:integer;
x:real;
begin
readln(a);
x:= a mod 10;
writeln(x);
end.