Дано четырехзначное число. напишите программу, определения суммы первой и последней цифр этого числа

Var
a, a1, a4: integer;
begin
readln(a);
a1 := a div 1000;
a4 := a mod 10;
writeln(a1 + a4);
end.