готовые коды паскаль

Ответ от
program qq;
uses crt;
var i,j,summ:integer;
a:array[1..6,1..6] of integer;
begin
for i:=1 to 2 do
for j:=1 to 2 do
readln(a[i,j]);
for i:=1 to 2 do
for j:=1 to 2 do
if (a[i,j]>0) then summ:=a[i,j]+summ;
writeln('summ_',summ)
end.
тогда написано вполне оптимально. упрощать нечего