можно. читай, если интересно. я пересказать своими словами полно и ясно не смогу.
http://computer76.ru/2014/02/03/p608/
<span><span>2 : if ((year mod 4) = 0) and ((year mod 400) <> 0) then</span><span> DneyVMecyace := 29</span><span>
else</span><span>
DneyVMecyace := <span>28
вот
</span></span></span>
Оу, даже так? Ну про скачивание фильмов я не знаю, а за просмотр рекламы (У Гугла есть такой сервис) вполне можно сумму наскрести, но сейчас все в ВК смотрят онлайн или торрентом качают так что, извини, но... Впрочем, удачи:) Я как-то пытался в детстве обогатиться выгрузкой игр с сайтов х)
Если очень надо, то лучше сделай блог хороший и, когда он раскрутится, добавь туда рекламку:) <em>Или взломай популярный сайт и опять-таки рекламу туда, но я этого не говорил =)</em>
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>