Среди чисел 1, 4, 9, 16, 25 найти первое число большее n.

Var n, p, i: integer; begin readln(n); i: =1; p: =3; while true do   if i< =n then   begin   i: =i+p;   p: =p+2;   end   else   begin   write(i);   exit;   end; end.

Type   index='0'..'z'; var   ch: array[0..255] of integer;   s: string;   i,max,imax: integer; begin   { очищаем массив счетчиков }   for i: =0 to 255 do ch[i]: =0;   writeln('введите текст');   readln(s);   for i: =1 to length(s) do inc(ch[ord(s[i])]);   max: =ch[0]; imax: =0;   for i: =33 to 255 do { не рассматриваем непечатаемые символы и пробел}       if max< ch[i]then begin max: =ch[i]; imax: =i end;   writeln('символ "',chr(imax),'" встретился ',max,' раз(а)') end. тестовое решение: введите текст "что значит имя? роза пахнет розой, хоть розой назови её, хоть нет." (в.шекспир) символ "о" встретился 9 раз(а)

  pascalabc.net const      n = 'нет';   var    s : string;     l,i : integer;       begin  readln (s);   l : = length(s);   i : = 1;     while i < =   l-1 do    begin      if s[i] = 'д' then      if s[i+1] = 'а' then        begin        l : = l+1;         delete (s,i,2);         insert (n,s,i);         end;       i : = i +1;     end;   writeln (s);   end.