Срооооочноо, пожалуйста
А что именно надо сделать ? Могу 4,5,6 сделать остальное можно в интернете найти
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5