var i,n, result:integer;//определяем переменные
begin
result := 1;//начальное значение - 1. Иначе при умножении на 0 будет всегда 0
readln(n);//вводим число, факториал которого надо найти
while n > 1 do//пока н не будет меньше, выполняем тело
begin
result := result * n;//Вычисляем факториал по принципу: С конца к началу. умножаем 5 на 1(начальное значение result), потом 4 на значение результ) потом 3 на 20 и тп
n := n - 1;//отнимаем от n 1 и переходим с предыдущему числу
end;
writeln('Факториал = ', result);
end.
program HelloWorld;
var a: array of integer;
var N, min, max, i, variable:integer;
begin
min := 32767;
max := 0;
readln(N);
for i := 0 to N do begin
readln(variable);
if (variable > 0) and (variable mod 2 = 0) and (variable > max) then
max := variable;
if (variable > 0) and (variable mod 2 = 0) and (variable < min) then
min := variable;
end;
if (max <> 0) and (min <> 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
