Программа для первого задания:

program SumOfFirstAndLastDigits;
var
num, firstDigit, lastDigit, sum: integer;
begin
writeln('Введите четырехзначное число: ');
readln(num);
firstDigit := num div 1000;
lastDigit := num mod 10;
sum := firstDigit + lastDigit;
writeln('Сумма первой и последней цифр числа: ', sum);
end.

Программа для второго задания:

program ReverseNumber;
var
num, reversedNum: integer;
begin
writeln('Введите четырехзначное число: ');
readln(num);
reversedNum := (num mod 10) * 1000 + (num div 10 mod 10) * 100 + (num div 100 mod 10) * 10 + (num div 1000);
writeln('Число в обратном порядке: ', reversedNum);
end.

Пожалуйста, скопируйте код и вставьте его в среду программирования Pascal для компиляции и выполнения. Если возникнут вопросы, не стесняйтесь задавать. Удачи!