Pagini recente » Cod sursa (job #2009082) | Cod sursa (job #2170051) | Cod sursa (job #3137689) | Cod sursa (job #2027739) | Cod sursa (job #2120028)
type matrix=array[1..300,1..300]of longint;
type vector=array[1..300]of longint;
var a:matrix;
n,m:longint;
x:vector;
procedure citire;
var i,j:longint;
begin
assign(f,'gauss.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
for j:=1 to m+1 do
read(f,a[i,j]);
close(f);
end;
procedure afis;
var f:text;
begin
assign(f,'gauss.out');
rewrite(f);
writeln(f,'Imposibil');
close(f);
end;
begin
afis;
end.