Pascal-kielinen ratkaisu:
program pistepari(input,output);
var joukko: array [1..100] of integer;
    a,b,i,j,k,min,ero,x:integer;
begin 
    k:=0;
    while not eof do
    begin k:=k+1; read(x);
        joukko[k]:=x
    end;
    a:=joukko[1]; b:=joukko[2];
    if a