Составить программу решающую следующую : дано трехзначное число . найти сумму его крайних чисел.

Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.