<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>
Лишнее желудь
Так как на всём остальном писали в древности
Program qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.
<span>readln(d); оператор, который считывает число d.
вероятно, тут нужно указать некоторое число d, при котором алгоритм выводит некоторый результат.
посмотрите задание более внимательно.</span>