Почему Ты Эгоист?

program proizv2_real; {название программы}uses crt; {подключаем модуль crt}var number1, {переменная для хранения первого числа}number2, {переменная для хранения второго числа}rez {переменная для хранения результата}: real; {тип вещественных данных}BEGIN {признак начала программы}clrscr; {очищаем экран}writeln('Введите 1-е число'); {выводим сообщение}read(number1); {происходит присваивание переменной number1 значения,которое мы вводим на клавиатуре}writeln('Введите 2-е число'); {выводим сообщение}read(number2); {происходит присваивание переменной number2 значения,которое мы вводим на клавиатуре}rez := number1 * number2; {присваивание переменной rez произведенияпеременных number1,number2}writeln('Результат ',rez:4:4); {вывод сообщения и значениявещественной переменной rez в формате:4 позиции для целой части и 4 позиции для дробной части}readln; {задержка экрана}readln; {задержка экрана}END. {признак конца программы}

Унылая пора! Очей очарованье!Приятна мне твоя прощальная краса —Люблю я пышное природы увяданье,В багрец и в золото одетые леса,В их сенях ветра шум и свежее дыханье,И мглой волнистою покрыты небеса,И редкий солнца луч, и первые морозы,И отдаленные седой зимы угрозы.

Я вас любил: любовь еще, быть может,В душе моей угасла не совсем;Но пусть она вас больше не тревожит;Я не хочу печалить вас ничем.Я вас любил безмолвно, безнадежно,То робостью, то ревностью томим;Я вас любил так искренно, так нежно,Как дай вам бог любимой быть другим.