8 сынып 2тақырып Процессор 4 тапсырма
​

Служебные части речи-это слова, которые не называют ни предметов, ни действий, ни признаков, а выражают только отношения между ними. 
Служебные:
1)Предлог(в,на,об,из,из-за и другие)
2)Союз(и,а,но,однако,потому что,чтобы,если и другие)
3)Частица(бы,ли,же,не,даже,именно,только и другие)
Самостоятельные части речи-это группа слов с общим грамматическим значением.
Самостоятельные:
1)Имя существительное(кто?что?)Например : Мальчик,дядя,стол,стена,кот, 
2)Глагол(что делать?что сделать?)Например:Пилить,распилить,знать,узнать,дружить
3)Имя прилагательное(какой? чей?)Например:Хороший,синий,мамин,дверной,сильный. 
4)Имя числительное(сколько?который?)Например:Пять, пятеро, пятый,семь). 
5)Наречие(как?когда?где? и другие)Например:Весело, вчера, близко,далеко. 
6)Местоимение(кто?какой?сколько?как? и другие)Например:Я, он, такой, мой, столько, так, там. 
7 Причастие(какой?что делающий?что сделавший? и другие)Например:Мечтающий, мечтавший,сделавший. 
8 Деепричастие(как?что делая?что сделав?)Например:Мечтая, решив.
Я думаю, что так.На картинке показаны не все,но все равно я прислала её!Вроде все понятно объяснила!Надеюсь, что з

Type  str = array [1..100] of char;
var  maxs, tmps : str; 
count, max, tmp, ctmp : integer;

procedure reads (var s : str; var len, val : integer);
var 
b : boolean; 
 c : char; 
 i : integer;
begin 
 i := 0; b := false; 
 repeat 
  read (c); 
  if not b or (c <> ' ') then   
begin   
   if c = ' ' then b := true; 
    inc (i);   
   s[i] := c; 
    c := '1'; 
  end; 
 until b and (c = ' ');
  len := i; 
 readln (val);
end;
begin
assign (input, 'input.txt'); reset (input);
  reads (maxs, count, max); 
 while not eof do 
 begin   
 reads (tmps, ctmp, tmp);
    if tmp > max then   
 begin     
 max := tmp;
 count := ctmp; 
 maxs := tmps;
    end; 
end; 
 for tmp := 1 to count do write (maxs[tmp]);
end.