Wuerfel

Program wuerfel (output);

var i: integer;
var w1,w2:integer;
var p:integer;

begin
    p:=0;
(*    randomize; *)
    for i:=1 to 100 do
        begin
            w1:=random(6);
            w2:=random(6);
            if w1=w2 then
                begin
                    writeln(w1,' ',w2,' ',w1+w2,' Pasch!');
                    p:=p+1;
                end
            else
                writeln(w1,' ',w2,' ',w1+w2);
        end;
    writeln('Anzahl Pasch: ',p);
    
end.