problem z pascalem

[Rut]

musze napisac program w pascalu imitujacy Totolotka ( mam podac 6 liczb od 1 do 49 nastepnie komputer ma podac swoje szesc liczb i okreslic ile wygralem w sensie szostke , czworke itd.)Prosze o pomoc !! moj numer gg to 6361431