1)Ввели 3 числа a, b, c. Вывести сумму чисел, среднее арифмитическое этих чисел. 2)Дана диагональ квадрата.Найти сторону

1. 

var a, b, c: real;

begin

writeln(\'Введите a\');

readln(a);

writeln(\'Введите b\');

readln(b);

writeln(\'Введите c\');

readln(c);

writeln((a + b + c)/3);

end.

2. 

var d: real;

begin

readln(d);

writeln(\'Площадь квадрата равна\', (d*d)/2);

writeln(\'Сторона квадрата равна\', sqr(d)/2);

end.