напешите прошу Паскаль

program z1;

var

s,w:integer;

begin

writeln('Введите число зубов Кузьки');

readln(s);

writeln('Введите число зубов бабы Дуси');

readln(w);

if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')

end.

Подробнее - на Znanija.com - https://znanija.com/task/30754761#readmore