Дан рост двух мальчиков. Нужно определить на сколько первый выше второго с помощью программы Pascal.

var h1, h2:integer;beginreadln(h1);readln(h2);if (h1>h2) then writeln('Первый выше второго на ', h1-h2);if (h1<h2) then writeln('Первый ниже второго на ', h2-h1);if (h1=h2) then writeln('У обоих мальчиков одинаковый рост');end.