Напишите программу на языке Паскаль для вычисления суммы чисел, кратных 3 из промежутка от 1 до k (k вводится с клавиатуры

var k, sum, i:Integer;

begin

sum:=0;

readln(k);

for i := 1 to k do

begin

 if  (i mod 3 = 0)then

 sum:=sum+i;  

end;  

writeln(sum);

end.

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