program zadanie_4; uses crt; type matrix=array[1..6,1..6] of real; var a,b:matrix; i,j,z:integer; byk: string [5] ; SRA,s,x:real; ch:char; label L1,L2; begin clrscr; gotoxy(18,6); writeln('‚ čĨŦã ĸ­¨Ŧ ­¨î ¯āĨ¤áâ ĸĢĨ­­  ¯āŽŖā ŦŦ '); gotoxy(17,7); writeln('¯Ž ¯Ž¨áĒã áāĨ¤­ĨŖŽ  ā¨äŦĨâ¨įĨáĒŽŖŽ į¨áĢ  '); gotoxy(25,8); writeln('ĸ Ēĸ ¤ā â­ŽŠ Ŧ âā¨æĨ.'); gotoxy(26,10); textcolor(68); writeln('‡€„€—€ Žƒ€ŒŒ›!!!'); gotoxy(20,11); textcolor(white); writeln('Ž‘’Žˆ’œ Š‚€„€’“ž Œ€’ˆ–“ "€"'); gotoxy(16,12); writeln('€‰’ˆ ‘…„…… €ˆ”Œ…’ˆ—…‘ŠŽ… ‚ Œ€’ˆ–… "€"'); gotoxy(20,13); textcolor(red); writeln('Ž‘’Žˆ’œ Œ€’ˆ–“ ""*0.1*SRA'); gotoxy(16,14); writeln('‚›‚…‘’ˆ ˆ‘•Ž„“ž Œ€’ˆ–“ ˆ Ž‹“—…“ž Ÿ„ŽŒ'); textcolor(2); gotoxy(42,16); writeln('āŽŖā ŦŦã áŽáâ ĸ¨Ģ '); gotoxy(42,17); writeln('áâã¤Ĩ­âĒ  Œƒ“ ‘ Ŗāã¯¯ë ˆ - 112'); gotoxy(42,18); writeln('ˆ‚€Ž‚€ €€'); gotoxy(28,22); textcolor(yellow); writeln('ŒŽáĒĸ  1.12.2009'); gotoxy(18,24); textcolor(7); writeln(' ĻŦ¨âĨ ĢîĄãî ĒĢ ĸ¨čã ¤Ģī ¯āŽ¤ŽĢĻĨ­¨ī!!!'); ch:=readkey; L1: begin clrscr; writeln('‚‚…„ˆ’… ‹…Œ…’› Œ€’ˆ–›!!!'); writeln; SRA:=0; for i:=1 to 6 do for j:=1 to 6 do begin repeat write('a[',i,',',j,']>'); readln(byk); val(byk,a[i,j],z); textcolor(12); If z<>0 then writeln('ĨĸĨā­Ž § ¤ ­ íĢĨŦĨ­â Ŧ âā¨æë! ŽĸâŽā¨âĨ ĸĸŽ¤ íĢĨŦĨ­â '); textcolor(white); Until z=0; SRA:=SRA+a[i,j]; end; SRA:=SRA/36; for i:=1 to 6 do for j:=1 to 6 do b[i,j]:=a[i,j]*0.1*SRA; clrscr; writeln('‘āĨ¤­ĨĨ  ā¨äŦĨâ¨įĨáĒŽĨ =',sra:10:2); writeln; writeln(' "Œ€’ˆ–€ €"'); writeln; for i:=1 to 6 do begin for j:=1 to 6 do write(a[i,j]:10:1); writeln; { writeln;} end; writeln; writeln(' "Œ€’ˆ–€ "'); writeln; for i:=1 to 6 do begin for j:=1 to 6 do write(b[i,j]:10:1); writeln; end; gotoxy(20,24); writeln('•Žâ¨âĨ Ģ¨ ¯āŽ¤ŽĢĻ¨âė? Y-¤ , N-­Ĩâ'); l2: case readkey of #89: goto l1; #121: goto l1; #78: exit; #110:exit; end; goto l2; end; end.