Люди, нужна ваша помощь, используя программу Pascal. Незнающих прошу пройти мимо. Следует составить 2 программы согласно 2 заданиям ниже :)
(ввод с клавиатуры)
1) Найдите сумму первой и последней цифр четырехзначного числа.
2) Записать четырехзначное число в обратном порядке.

Предыдущий
вопрос Следующий
вопрос

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

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 для компиляции и выполнения. Если возникнут вопросы, не стесняйтесь задавать. Удачи!