Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.
Количество символов = 10*35*79 = 27650
8 бит = 1 байт
Объем реферата = 27650*1 байт = 27650 байт
Тип круговой диаграммы, которая используется как средство сравнения данных
лестья -яблоня-ствол-ветки-плоды