Wymyśl algorytm który będzie dzielił liczbę na 5 . Pilnie potrzebuje na dziś!!!!!!!!!

Proste w Pascalu: var liczba: longint; begin read(liczba) if not (liczba=0) then Liczba:=Liczba/5; write(liczba); readln; //czekaj end;