СРОЧНО!!!ПОЖАЛУЙСТА!!! НАПИСАТЬ программу в Паскале.

Ответ:

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>