program zad1;
var k, i, min, next, suma : integer;

a : array [1..10] of integer;

Begin

write ('Введите 10 чисел -> ');

for i:=1 to 10 do

readln (a[i]); {Запоминаем 10 чисел в массив}

min:=a[1]; {Предположим, что первый элемент массива - есть минимальное число}

for i := 2 to 10 do {Ищем настоящее минимальное число (начиная со второго)}

if a[i] < min

then
begin
min := a[i];
end; {Поиск завершен, минимальное число записано в переменную "min"}

for i := 1 to 10 do {Поиск следующего по величине}

if (a[i] > min)
then
begin

************* КАК НАЙТИ? ***************

end;

suma := min + next;

writeln ('Наши числа: ');

for i:=1 to 10 do

writeln (a[i]); {Вывод чисел на экран}

writeln ('Минимальное = ',min); {Вывод искомых величин}
writeln ('Следуюющее по величине = ',next);
writeln ('Их сумма =',suma);
readln;
{Программа составлена для uninstallersoft.at.ua}
End.

Program Timer;   
Uses CRT, DOS;   
Const wt = 3; {3 минуты работает программа}   
Var h,m,s,ms: Word;   
       sm, ss: Integer;   
Begin   
GetTime(h,m,s,ms);   
sm := m;   
ss := s;   
If (sm >= 57) then sm := 60 - sm; {Начальный период минут и секунд}   
Repeat   
ClrScr;   
Writeln('Время ',h,':',m,':',s);   
GetTime(h,m,s,ms);   
Delay(500);   
Until (KeyPressed) or ((sm + wt = m) and (ss = s));   
{Программа составлена для uninstallersoft.at.ua}
End.

var max, min, i, n:longint;
a:array [1..30] of longint;
Begin
writeln('a[',i,']=');
readln(a[i]);
for i:=1 to 30 do begin
writeln ('a[',i,')=');
readln(a[i]);
end;
max:=a[1];
n:=1;
for i:= 1 to 30 do
if a[i]>max then begin
max:=a[i];
n:=i end;
for i:=n+1 to 10 do
writeln(a[i]);
{Программа составлена для uninstallersoft.at.ua}
End.

var k,l,m,n,a,b:integer;
Begin
writeln('Vvedit k,l,m,n');
readln(k,l,m,n);
a:=abs(k-m);
b:=abs(l-n);
if a=b then writeln('Угрожает') else
writeln('Не_Угрожает');
{Программа составлена для uninstallersoft.at.ua}
End.

var k,l,m,n,a:integer;
Begin
writeln('Vvedite k,l,m,n');
readln(k,l,m,n);
if (k=m) or (l=n) then writeln('Можно') else
writeln('Не можно');
{Программа составлена для uninstallersoft.at.ua}
End.

var n,i,max,min:longint;
s:real;
a:array[1..20] of longint;
Begin
for i:=1 to 20 do Begin
writeln('a[',i,']=');
readln(a[i];
end;
max:=a[1];
min:=a[1];
Begin
for i:=1 to 20 do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
s:=(max+min)/2;
end;
{Программа составлена для uninstallersoft.at.ua}
End.