прикладная математика

var
a:array[1..4,1..4]of byte;
i,j:byte;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[j,i]);
for i:=1 to 4 do
for j:=1 to 4 do
if i mod 2=0 then write(a[i,j],' ');
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо

Обращайся ещё:))