Segítség free pascalban?

Szia.

MOD-dal : Elosztod 10-zel a beadott számot és veszed a maradékát

DIV-vel : Elosztot 10-zel veszed az egészrészéz és kivonod az eredeti számból az egészrész * 10-et.

valahogy igy MOD:

readln (szam);

utolso:=szam mod 10;

writeln ('A szám utolsó számjegye : ',utolso);

DIV-vel :

readln (szam);

utolso:=szam - (szam DIV 10) * 10;

writeln ('A szám utolsó számjegye : ',utolso);

Sok sikert.

Üdv.

var szoveg: String;

begin

ReadLn(szoveg);

WriteLn(szoveg[Length(szoveg)-1])

end.