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

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.