Помогите с Паскалем ABS.
1 дано пятизначное число. определить сумму второй и пятой цифры.
2 дано пятизначное число. Определить сумму второй и четвёртой цифрой.
3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры

№3

var a,b,c,d: integer;beginreadln(a,b,c);if (a mod 2 =0) then d:=d+1;if (b mod 2 = 0) then d:=d+1;if (c mod 2 = 0) then d:=d+1;writeln(d);end.

№2.var a,b: integer;beginreadln(a);b:=a;a:= (a div 10) mod 10;b:= (b div 1000) mod 10;writeln(b+a);end.№1.var a,b: integer;beginreadln(a);b:=a;a:= a  mod 10;b:= (b div 1000) mod 10;writeln(b+a);end.