delphi

program rozmyślnik;
  const
    jednostka = 1;
  var
    czlowiek: string;
  begin
    writeln('Człowiek może być indywidualistą,');
    writeln('ale bez drugiego człowieka (w pojedynkę) długo nie pociągnie.');
    writeln('Nie pociągnie, bo nie będzie mógł zaspokoić potrzeby,);
    writeln('jaką jest rozmowa z drugą osobą.');
    writeln('Rozmowa daje nam informacje i określa nasz stan psychiczny.');
    readln(czlowiek);
    czlowiek := jednostka + jednostka;
      for jednostka := 1 to czlowiek do
        begin
          writeln('cel',czlowiek);
          writeln('Wykluczam zwierzęta i wolontariat - zastępują);
          writeln('to, czego nam nie udało się osiągnąć.');
      end;
    end;
end.

// może kiedyś zrozumiem bardziej, gdzie popełniam błędy