Question

Помогите какие знаете................ прошу помогите плиззз.......................Решить задачи, составить программы:1.Найти сумПомогите какие знаете................ прошу помогите плиззз.......................
Решить задачи, составить программы:
1.Найти сумму цифр целого четырехзначного числа, и определить число,
цифры которого записаны в обратном порядку по отношению к исходному.
2.По введенному с клавиатуры аргументу вычислить значение функции.
3.Поменять местами значения двух переменных.
4. Написать программу ввода четырех чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из железной полосы длиной L метров нужно изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Найти площадь конца, по введенным внешним и внутренним радиусам.
8.Найти расстояние между двумя точками по их координатам.

Answer 1

4)
Var i,S,a,sa:integer;
begin
 for i:=1 to 4 do brgin
 readln(a); S:=S+a; end;
sa:=S/4;
writeln('Среднее арефметическое: ',sa);
readln;
end.