помогите плизз. составить программу с
if then. в pascal abc. номер 3. срочно нужно. зарание спасибо.

var a, s: string;i, w: integer;beginreadln(a);s:= a[1];for i:= 2 to length(a) do    if a[i] < s then        s:= a[i];val(s, i, w);if i mod 2 = 0 then   writeln('Не четная')else   writeln('Четная');end.