Решите через паскаль 8 и 9 задание

var a, b : Integer;
begin
Write('a = '); ReadLn(a);
Write('b = '); ReadLn(b);
WriteLn('Периметр P = ', 2*(a+b));
WriteLn('Длина диагонали d = ', Sqrt(a*a+b*b):0:5);
end.

var a,b: integer;c: real;
begin
writeln('введите первое число');
readln(a);
writeln('введите другое число');
readln(b);
c:=(a+b)/2;
writeln('среднее арифметическое двух чисел= ',c);
end.