Question

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

Answer 1

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