Ввести число. Вычислить сумму первой и последней цифры.
pascal цикл while или repeat

Program n1;var sum, n: longint;begin sum:=0; write('введите число: '); readln(n); sum:=n mod 10; while n>10 do n:=n div 10; sum:=sum+n; writeln('сумма 1 и последней цифр равна ',sum);end.