Mi ennek a turbo pascal feladatnak a levezetese?

Egy megoldási lehetőség:

Program szamjegy;

Uses crt;

Var

n, szorzat: LongInt;

s: String;

x, i: Byte;

code: Integer;

Begin

Clrscr;

Write('Irja be a szamot: ');

ReadLn(n);

Str(n, s);

szorzat:=1;

For i:=1 To Length(s) Do

Begin

Val(s[i], x, code);

szorzat:=szorzat*x;

End;

If (szorzat Mod 2)=0 Then

Write(s[1])

Else

Write(s[Length(s)]);

ReadLn;

End.