Paskal

[SkyL1ne]

Знаю, что задачи легкие, но не понимаю как решить...
1.Вычислить значение функции от значения аргумента
cos^2(x) при 0<х<2
y=
1-sin^2(x) при х<=0 2<=х

2.Выведите на экран значение логического выражения которое принимает значение тру, если К является двухзначным кратным 5, иначе фалсе


3.даны 2 числа, если х и у больше 0 то максим альное заменит на их (х+у)\2, если х и у меньше 0 то поменять знак у меньшего из них, иначе удвоить

4. на цикл

вычислить первые 100 чисел фибоначи F(n)=F(n-1)+F(n-2) F(0)=F(1)-1

[Chudo4258]

1
readln(x);
if (x>0) and (x<2) then f:=sqr(cos(x))
                            else f:=1-sqr(sin(x));
writeln(f);

2
readln(k);
if (k>9)and(k<100)and(k mod 5=0) then p:=true
                                                else p:=false;
writeln(p);