Первые шаги изучения Pascal

И вот он первый результат =)