Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
Перемещение мыши - Перемещение по экрану указателя мыши
Щелчок левой кнопкой мыши - Выделение объекта
Двойной щелчок - Отображение содержимого папки, запуск программы
Перемещение мыши при нажатой левой кнопке - Перемещение объекта по экрану
Щелчок правой кнопки мыши - Вызов контекстного меню
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
1. Удалить файл
2. Закрыть рекламу
3. Проверить комп на вирусы
Не знаю в каком порядке
ну или позвать взрослых