uses crt;
const z=3;x=4;
type mz=array[1..z,1..x] of integer;
var a:mz;
t:text;
procedure Input(var a:mz;n,m:integer);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(48)-23;
end;
procedure Output(var a:mz;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
end;
procedure Rec(var a:mz; n,m:integer);
var i,j:integer;
begin
assign(t,'c:\data.txt');
rewrite(t);
writeln(t,n);
writeln(t,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
write(t,a[i,j]:4);
end;
writeln;
end;
close(t);
end;
procedure chten(var a:mz; n,m:integer);
var i,j:integer;
begin
assign(t,'c:\data.txt');
reset(t);
readln(t,n);
readln(t,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(t,a[i,j]);
write(a[i,j]:5);
end;
writeln;
end;
close(t);
end;
begin
clrscr;
Input(a,z,x);
writeln(' = :');
writeln;
Output(a,z,x);
writeln;
Rec(a,z,x);
writeln(' Itog (c:\data.txt)');
writeln;
chten(a,z,x);
writeln;
readln;
end.