2

begin read(g, b); if a.Nr = b.Nr then begin

znalazlem:=true; writeln(a.Nr, a.x, a.y, b.z); end; end;

if znalazłem = false then writeln(a.Nr, a.x, a.y, end;

close(f); close(g); , end;

BEGIN

wypiszfofyNr^^z);

END.

£

x‘

upii

k /lo

/

40

•'Seo

KO    ^Oęicr^J^o

GO

otp a® ?■;

§§§ 5~x Z

program zadl; (.2

type współrzędne = record Nrrword;

X,Y:integer;

end;

var f:text;

g: file of współrzędne; a: współrzędne;

procedurę przepiszl(var a: współrzędne; var Nr:word; var X,Y: integer); begin

assign(f, 'xy.txt'); reset(f);

assign(g_; 'xy.dat'); rewrite(g);