Домашнее задание по информатике

Я так понимаю, программы написать надо.
1) Program P1;
uses crt;
var a, b, c, P: real;
begin
clrscr;
write ('Введите длину 1-ой стороны треугольника: ');
readln (a);
write ('Введите длину 2-ой стороны треугольника: ');
readln (b);
write ('Введите длину 3-ей стороны треугольника: ');
readln (c);
P:=a+b+c;
write ('Ответ: Периметр треугольника равен: ', P);
readkey;
end.
2) Program P2;
uses crt;
var a, b, c, sum: real;
begin
clrscr;
writeln ('Введите 3 числа.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
write ('Введите 3-е число: ');
readln (c);
sum:=a+b+c;
write ('Ответ: Сумма 3 чисел равна: ', sum);
readkey;
end.
3) Program P3;
uses crt;
var a, b, c, s: real;
begin
clrscr;
writeln ('Введите 3 числа.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
write ('Введите 3-е число: ');
readln (c);
s:=(a+b+c)/3;
write ('Ответ: Среднее арифметическое 3 чисел составляет: ', s);
readkey;
end.
4) 1) 9 2) 18
Пример) 52.

1) Program P1;
uses crt;
var a, b, c, P: real;
begin
clrscr;
write ('Введите длину 1-ой стороны треугольника: ');
readln (a);
write ('Введите длину 2-ой стороны треугольника: ');
readln (b);
write ('Введите длину 3-ей стороны треугольника: ');
readln (c);
P:=a+b+c;
write ('Ответ: Периметр треугольника равен: ', P);
readkey;
end.
2) Program P2;
uses crt;
var a, b, c, sum: real;
begin
clrscr;
writeln ('Введите 3 числа.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
write ('Введите 3-е число: ');
readln (c);
sum:=a+b+c;
write ('Ответ: Сумма 3 чисел равна: ', sum);
readkey;
end.
3) Program P3;
uses crt;
var a, b, c, s: real;
begin
clrscr;
writeln ('Введите 3 числа.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
write ('Введите 3-е число: ');
readln (c);
s:=(a+b+c)/3;
write ('Ответ: Среднее арифметическое 3 чисел составляет: ', s);
readkey;
end.
4) 1) 9 2) 18
Пример) 52.