Ответ:
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>
var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
3 буквы сорян может я не так понял как ты имел в виду
Var
i, chet, summa: integer;
mass:array[0..24] of integer;
Begin
for i:=0 to 24 do
Begin
mass[i]:= random(-50,50);
if (mass[i] mod 2 = 0) then
Begin
chet+=1;
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.');
End
else
Begin
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.');
summa+=mass[i];
End;
End;
Writeln('Количество чётных членов массива: ', chet);
Write('Сумма нечётных членов массива: ', summa);
End.