Голова не соображает(; з)ну на паскале печатает на экране в строчку, через запятую все натуральные числа от 3 до этого числа, которые делятся на 3

Var i, k: integer; st1, st2: string; begin  write('введите число: ');   readln(k);   st1: ='';   for i: =3 to k do    if (i mod 3 = 0) then      begin      str(i, st2);       st1: = st1 + st2 + ', ';       end;   st1[length(st1)-1] : = '.';   writeln(st1); end.

Var       f1, f2, max: integer;       s: longint; begin       max : = -1;       while max < 0 do       begin               writeln('введите то число до которого выводить числа');               readln(max);               if max < 0 then writeln('введено неверное число');       end;             s : = 0;       f1 : = 0;       f2 : = 1;       while f2 < max do       begin               s : = s + f2;               f2 : = f2 + f1;               f1 : = f2 - f1;               writeln(f2);       end;             writeln('s=', s); end.

Если ты не знаешь как создать сейчас скажу. живешь на правую кнопку мыши там было зимы программу itunes создать и выбираешь папку и как они там документ кто принес на папку потом нажимаю на папку опять только уже левой кнопкой мыши и там вылазит еще открытие удалить и так далее ты нажимаешь изменить имя стираешь новая папка или пишешь свое название папки. заполняющая телефон для музыки на galaxy ты сразу туда туда добавляешь много музыки чтоб появилась песня на мелодию на нее появилась ты создал все