Ответ:
1.
<em>var s: string;
</em>
<em>
</em>
<em>begin
</em>
<em>write('Введите слово: ');
</em>
<em>readln(s);
</em>
<em>while (s<>'хватит') do
</em>
<em> begin
</em>
<em> writeln(s+'!');
</em>
<em> write('Введите слово: ');
</em>
<em> readln(s);
</em>
<em> end;
</em>
<em> writeln('До следующих встреч');
</em>
<em>end.
</em>
<em />
2.
<em>var i,n,max,min: integer;
</em>
<em>
</em>
<em>begin
</em>
<em>randomize();
</em>
<em>n:=random(201)-100;
</em>
<em>max:=n;
</em>
<em>min:=n;
</em>
<em>write(n,' ');
</em>
<em>For i:= 2 to 20 do
</em>
<em> begin
</em>
<em> n:=random(201)-100;
</em>
<em> write(n,' ');
</em>
<em> if (n>max) then max:=n;
</em>
<em> if (n<min) then min:=n;
</em>
<em> end;
</em>
<em>writeln('Наибольшее число: ',max);
</em>
<em>writeln('Наименьшее число: ',min);
</em>
<em>end.
</em>