Дано целое трехзначное число a. (i) По заданному алгоритму составьте код программы Алг Сумма Нач

На примере Delphi
Var
X:integer;
Button_Click()
Begin
S:=0;
x:=StrtoInt(Text1.text);
x:=x mod 10;
Label1.caption(InttoStr(x));
End;
Результат: 5