S. O6nuTM: a) =SUM(5;AVERAGE(8;12;7);6);
6) =MAX(6,30;16)-MIN(54,25)​

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах