Даны четыре целых положительных числа. Необходимо выбрать из них и вывести на экран число с наибольшей последней цифрой. Если в наборе несколько чисел с одинаковой наибольшей последней цифрой, нужно вывести наибольшее из этих чисел.
Программа на Паскале Очень нужно! Не пойму

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

writeln('Число с наибольшей последней цифрой: ',res);

end.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.