Вывести на экран значение функции f(x)=x^3-26x на интервале [-18; 12] с шагом 3. паскаль (на цикле)

Var x,y: integer; begin for x: =-18 to 12 do begin y: =x*x*x-26*x; writeln('x=',x,' y=',y); end; end.

Наверное нам надо все  таки определить кто из нас главный.- подумав  сказал процессор. ну что ж, я не против продолжили клавиатура и   память. я думаю что самым главным органом является я- перебила клавиатура и начала быстро шурша клавишами кричать во весь голос. как вы сможете вводить информацию если не будет меня? да вы даже свои имена не напишете.. по этому я должна быть главной.     погоди ка клава перебил процессор а ведь я тоже не дурак. ну введешь информацию а кто будет обрабатывать её? кто будет всё это рассчитывать, все эти биты байты мегабайты? по этому я тут подумал и вычислил себя самым главным.     коллега дайте и мне сказать своё слово - сказала память. как мне не изменяет моя терабайтная память ваши расчеты и ваши вводы информации без меня ровно слова на ветер. да, да. как вы будете помнить завтра  то что вы сейчас обсуждаете сегодня. я же ваш мемори. и по этому. безусловно я являюсь самым главным органом.     они спорили долго долго пока компьютер совсем не завис окончательно.