помогите! составить программу в паскале.
У младенца Кузьки
вылезло уже s зубов, а у его бабы Дуси осталось w зуба. Задать с помощью генератора случайных чисел 2 целых числа от 0 до 5 – значения для s и w. У кого зубов больше?

program n;uses crt;var    s,w:integer;beginrandomize;s:=random(5); writeln(s,' зубов у Кузьки');w:=random(5); writeln(w,' зубов у бабы Дуси');if s>w then writeln('У Кузьки зубов больше');if w>s then writeln('У бабы Дуси зубов больше');if w=s then writeln('У бабы Дуси и Кузьки одинаковое кол-во зубов');end.