zadacha4

const
    N = 10;
var
    a: array[1..N] of integer;
    s, i, min1, min2, buff: byte;
begin
    randomize;
    for i:=1 to N do begin
        a[i] := random(100);
        write(a[i]:4);
    end;
    writeln;

    if a[1] < a[2] then begin
        min1 := 1;
        min2 := 2;
    end
    else begin
        min1 := 2;
        min2 := 1;
    end;

    for i:=3 to N do
        if a[i] < a[min1] then begin
            buff := min1;
            min1 := i;
            if a[buff] < a[min2] then
                min2 := buff;
        end
        else
            if a[i] < a[min2] then
                min2 := i;

    s:= a[min1]*a[min2];
    writeln(a[min1],' * ', a[min2], ' = ',s:4);
end.