НАПИСАТЬ программу в Паскале.1.Компьютер предлагает ввести любое слово, после чего печатает его с восклицательным знаком.Так повторяется до тех пор, пока не ввести слово хватит.После ввода слова хватит получим сообщение "До следующих встреч".2.Вывести на печать 20 случайных чисел и написать какое из них наименьшее , а какое наибольшее

1.

var s: string;

begin

write('Введите слово: ');

readln(s);

while (s<>'хватит') do

 begin

 writeln(s+'!');

 write('Введите слово: ');

 readln(s);

 end;

writeln('До следующих встреч');

end.

2.

var i,n,max,min: integer;

begin

randomize();

n:=random(201)-100;

max:=n;

min:=n;

write(n,' ');

For i:= 2 to 20 do

 begin

 n:=random(201)-100;

 write(n,' ');

 if (n>max) then max:=n;

 if (n<min) then min:=n;

 end;

writeln('Наибольшее число: ',max);

writeln('Наименьшее  число: ',min);

end.

. Основания ладоней лежат на передней кромке корпуса клавиатуры.

2. Форма кистей округлая, как будто в каждой из них вы держите яблоко.

3. Исходная позиция пальцев рук (кончики пальцев слегка касаются основных клавиш ) такова:

• левый указательный палец постоянно находится над буквой А; • левый средний постоянно находится над буквой В: • левый безымянный постоянно находится над буквой Ы; • левый мизинец постоянно находится над буквой Ф; • правый указательный палец постоянно находится над буквой О; • правый средний постоянно находится над буквой Л; • правый безымянный постоянно находится над буквой Д; • правый мизинец постоянно находится над бук вой Ж.

Большие пальцы обеих рук полусогнуты нал клавишей ПРОБЕЛ.

Const m=5;
var 
a:array[1..m,1..m] of integer;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(100);
  write(a[i,j]:4);
  end;
 writeln;
 end;
for i:=2 to m do
 for j:=1 to i-1 do
   a[i,j]:=0; 
writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  12  76  20  65  71
  27  52  36  45  52
   9  69   8  69  46
  89  69  52  76  31
  71  25   7  62  89
Полученный массив:
  12  76  20  65  71
   0  52  36  45  52
   0   0   8  69  46
   0   0   0  76  31
   0   0   0   0  89