Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. (Delphi7)

существительные женского рода

подвести курсор справа от удаляемого символа

клацнуть бэкспейс

радоваться

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

var s: string; start,finish,i: integer; begin  {read(s); }  s: ='i aha, go home i';   start: =1;   for i : = 2 to length(s)+1 do begin      if (s[i] in [' ',',','.']) or (i=length(s)) then begin          finish: =i-1;           if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));           start: =i+1;       end;   end; end.