Например бугалтер для расмотрении разных документов
var a,b,c,d:integer;
begin
read(d);
a:=d div 100;
b:= (d div 10) mod 10 ;
c:=d mod 10;
if (a+b+c) >15 then
writeln('YES')
else
writeln('NO');
readln;
end.
"C:\Program Files\WinRAR\rar" a "C:\way\to\archive.rar" "C:\way\to\file.doc"
Чтобы в Windows создать rar-архив, нужна консольная программа RAR. Обычно она идет вместе с программой WinRAR
"C:\Program Files\WinRAR\rar" -- путь к консольной программе rar.exe (проверь, что WinRAR ставился именно туда)
a -- команда, означающая "создать архив"
"C:\way\to\archive.rar" -- полный путь и имя файла архива
"C:\way\to\file.doc" -- полный путь и имя doc файла, который нужно запаковать.
Пишу на QBasic
CLS
FOR I = 100 TO 999
IF I MOD 3=0 OR I MOD 7=0 THEN
C=C+I
END IF
NEXT I
PRINT C