2014 Logo

program Bevardė15;
type
mas = array [1..100] of integer;
var
F : text;
i, j, kiek, sum, sum1, sum2, task, task1, task2, geriaus : integer;
A, B, C : mas;

//------------Funkcija - Geriausias --------
function geriausias : integer;
begin
for i :=1 to kiek do
begin
if (task > task1) and (task > task2)  then geriaus := 1;
if (task1 > task2) and (task1 > task)  then geriaus := 2;
if (task2 > task1) and (task2 > task)  then geriaus := 3;
end;
end;

//-------------- Skaitymas ----------------
procedure skaitymas;
begin
sum := 0;
Assign (F, 'u1.txt');
Reset (F);
Readln (F, kiek);
for i := 1 to kiek do
readln (F, A[i], B[i], C[i]);
for j := 1 to kiek do
begin
sum := sum + A[j];  sum1 := sum1 + B[j]; sum2 := sum2 + C[j];
end;
Close (F);
end;

//-----------------------------------------
procedure skaiciavimas;
begin
task := 0;  task1 := 0;
for i := 1 to kiek do
begin
        if (A[i] > B[i]) and (A[i] > C[i]) then task := task +4;
        if (A[i] = B[i]) or (A[i] = C[i]) then task := task + 2;
            if (B[i] > A[i]) and (B[i] > C[i]) then task1 := task1 +4;
            if (B[i] = A[i]) or (B[i] = C[i]) then task1 := task1 + 2;
                if (C[i] > A[i]) and (C[i] > B[i]) then task2 := task2 +4;
                if (C[i] = A[i]) or (C[i] = B[i]) then task2 := task2 + 2;
end;
geriausias;
end;

//---------------Rasymas---------------------
procedure rasymas;
begin
Assign (F, 'u1rez.txt');
rewrite (F);
write (F, sum, ' ', sum1, ' ', sum2);
writeln (F);
write (F, task, ' ', task1, ' ', task2);
writeln (F);
writeln (F, geriaus);
writeln (F);

Close (F);
end;
//-----------------------------------------
begin
skaitymas;
skaiciavimas;
rasymas;
end.