Даны два числа. Найдите среднее арифметическое их квадратов и среднее арифметическое их модулей — Pascal(Паскаль)

program e4;
var a,b,c,d:real;
begin
writeln('Введи a b');
readln (a,b);
c:=(sqr(a)+sqr(b))/2;
d:=(abs(a)+abs(b))/2;
writeln('c=',c:4:4);
writeln('d=',d:4:4);
end.