Нарисуй в окне цепочку, у которой первая буква – а, четвертая – о, а последняя – м.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

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

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.