program DviTrijky;
var A1,B1,C1,A2,B2,C2,M1,M2,S:real;

procedure minimal(A,B,C:real; var min: real);
begin
if A<B then
         if A<C then
             min:=A
         else min:=C
else
    if B<C then
       min:=B
    else min:=C;
end;

BEGIN
writeln('Vvedit A1,B1,C1 i A2,B2,C2');
readln(A1,B1,C1,A2,B2,C2);
minimal(A1,B1,C1,M1);
minimal(A2,B2,C2,M2);
S:=M1+M2;
writeln(S);
END.

Задача. Скласти програму яка буде рахувати суму 10 квартетів. Нариклад 

Використовуючи процедури з параметрами.

program nazva;
var a1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3,a4,b4,c4,d4,
a5,b5,c5,d5,a6,b6,c6,d6,a7,b7,c7,d7,a8,b8,c8,d8,
a9,b9,c9,d9,a10,b10,c10,d10,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:real;
procedure suma (a,b,c,d: real; var s:real);
begin
s:=a+b+c+d;
end;

BEGIN
writeln('Введіть 10 квартетів');
read(a1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3,a4,b4,c4,d4,
a5,b5,c5,d5,a6,b6,c6,d6,a7,b7,c7,d7,a8,b8,c8,d8,
a9,b9,c9,d9,a10,b10,c10,d10);
suma (a1,b1,c1,d1,s1);
suma (a2,b2,c2,d2,s2);
suma (a3,b3,c3,d3,s3);
suma (a4,b4,c4,d4,s4);
suma (a5,b5,c5,d5,s5);
suma (a6,b6,c6,d6,s6);
suma (a7,b7,c7,d7,s7);
suma (a8,b8,c8,d8,s8);
suma (a9,b9,c9,d9,s9);
suma (a10,b10,c10,d10,s10);

writeln(s1,s2,s3,s4,s5,s6,s7,s8,s9,s10);
readln;
end.