Напечатать программу которая сможет вывести его без первой и последней буквы. ♥

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  s[2:s.Length].Println
end.

Пример
Информатика
нформатик

Знание познавательных процессов непосредственно необходимо лечащему врачу. Зрение – офтальмология, слух – отоларингология и так далее. Психологические знания в работе врача – сфера межличностных отношений, отражение психического состояния в картине болезни, знание картины личности пациента.

Связь психологии с медицинскими науками обусловлена двойственной природой человека (социального и биологического существа).Большинство психических явлений имеет физиологическую обусловленность. Суть в следующем: психическое состояние человека отражается на его физиологическом состоянии, а в определенных ситуациях психические особенности могут развитию какого-либо заболевания. Хроническое заболевание сказывается на психическом состоянии больного. В современной медицине получили активное развитие методы психотерапевтического воздействия словом.

Одна из отраслей психологии – медицинская психология – изучает психологические аспекты гигиены, профилактики, диагностики, лечения, экспертизы и реабилитации больных. Область исследований медицинской психологии – вопросы возникновения, развития и течения болезней, влияние болезней на психику и наоборот.

Структура медицинской психологии: клиническая психология общая медицинская психология; психопрофилактика и психогигиена; психокоррекция.

Связь психологии и медицины на уровне понятийного аппарата осуществляется через такие термины как здоровье, болезнь, телесная функция.

Психическое здоровье – состояние благополучия, при котором человек может реализовать свой собственный потенциал,продуктивно и плодотворно работать, а также вносить вклад в жизнь своего сообщества.

Var
  n, k, t, i, counter, j: int64;
  c: array[1..10]of int64;
  a: array[1..100000]of int64;
  ar: array[1..10, 1..100000]of int64;
  count: array[1..10]of int64;
  b: boolean;

 label l1;

  begin
  b := true;
  counter := 0;
  read(n, k, t);
  for i := 1 to n do read(c[i]);
  for i := 1 to k do read(a[i]);
  l1:
  while (counter <> k) do
   begin
    for j := 1 to n do
     begin
      for i := 1 to c[j] do
       begin
        if(ar[j, i] <= a[counter + 1]) then
         begin
          ar[j, i] := t + a[counter + 1];
           counter := counter + 1;
          count[j] := count[j] + 1;
          b := false;
          goto l1;
        end;
      end;
    end;
    if(b = true) then counter := counter + 1;
    b := true;
  end;
  for i := 1 to n do write(count[i], ' ');
end.