01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX3

program ex3;
{‡ ¤ ­ ¬ ббЁў y[5,4]. ‚лзЁб«Ёвм Їа®Ё§ўҐ¤Ґ­ЁҐ Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ў
 Є ¦¤®Ј® бв®«Ўж  ¬ ббЁў . ђ бЇҐз в вм १г«мв вл}
var i,j,p,w: integer;
var y: array[1..5,1..4] of integer;
begin
 writeln('‚ўҐ¤ЁвҐ Ёб室­го ¬ ваЁжг');
 for i:=1 to 5 do
  for j:=1 to 4 do read(y[i,j]);
 {ђ бЇҐз вЄ  ¬ ваЁжл}
 writeln('€б室­ п ¬ ваЁж ');
 for i:=1 to 5 do
 begin
  for j:=1 to 4 do write(y[i,j]:4);
  writeln
 end;
 {‚лзЁб«Ґ­Ёп}
 writeln('ђҐ§г«мв вл');
 for j:=1 to 4 do
 begin
  p:=1;
  for i:=1 to 5 do
  begin
   w:=y[i,j]; if w>0 then p:=p*w
  end;
  write(p:4)
 end;
 writeln
end.