Код: Выделить всё
program laba7;
type tPlanet=record
name:array[1..9]of char;
a:Real; //раст от солнца
kolSput:integer; //количество спутников
p,r,m:Real; //период, радиус, масса
end;
Planets=array[1..8]of tPlanet;
procedure Vvod(var plan:Planets);
var i,j:integer;
begin
for i:=1 to 8 do
begin
Writeln('название планеты');
Readln(plan[i].name[j]);
Writeln('количество спутников');
Readln(plan[i].kolsput);
Writeln('расст от Солнца');
Readln(plan[i].a);
Writeln('период');
Readln(plan[i].p);
Writeln('ср.радиус ');
Readln(plan[i].r);
Writeln('масса');
Readln(plan[i].m);
end;
end;
procedure VIVOD
.
.
.
.
Procedure obrabotka
.
.
.
.
.
Procedure VIV
.
.
.
.
.
end.