tugas 2d nomer 2

program identitas;

uses

wincrt;

var

c:array[1..10,1..10] of integer;

x,y:integer;

begin

for x:=1 to 5 do

begin

for y:=1 to 5 do

begin

c[x,y]:=0;

if x+y=6 then c[x,y]:=1;

write(c[x,y]:4);

end;

writeln

end;

end.