Помогите пожалуйста решить школьные задачи

[Nakutaro]

Проболел почти весь учебный год, учительница задала 5 задачек по пасалю, я в нём вообще никак, кто может пожалуйста напишите, буду очень благодарен.
№1
Для приготовления квашенной капусты на 10кг капусты берут 225г соли, 350г моркови, 200г клюквы и 1г лаврового листа. Сколько соли,моркови,клюквы,лаврового листа нужно для приготовления 1 тонны капусты.
№2
Составить программу вычисления значений функций { x*x при x>0
y={ -х при x<=0
№3
Написать программу, которая спрашивает пароль, если пароль правильный, то печатает слово "Молодец!"
№4
Найти сумму элементов массива, который делится на 5 и на 8 одновременни (размер массива любой)
№5
Найсти количество чётных положительных элементов

[Stilet]

Написать программу, которая спрашивает пароль, если пароль правильный, то печатает слово "Молодец!"

Ну это так:

var s:string;
begin
 read(s);
 if s='Der Parol' then write ('Младец');
end.

Че со знанием языка совсем туго?

[Nakutaro]

первый год изучаю паскаль и то весь год пробалел((
спс за задачу

[Gongled]

Вторая:

program pr2;
uses CRT;
var
x : real;
begin
clrscr;

write('Введите число: ');
read(x);

if x>0 then x := sqr(x)
else x := -x;

write(x);
readln;
end.

Четвёртая:

program pr4;
uses CRT;
const
n = 10;
var
a : array[1..n] of integer;
i, sum : integer;
begin
clrscr;
randomize;
sum := 0;

for i:=1 to n do
begin
     write('Введите ',i,' элемент: ');
     read(a[i]);
     if (a[i] mod 5 = 0) and (a[i] mod 8 = 0) then sum := sum + a[i];
end;

writeln;
write('Результат: ',sum);
readln;
end.

Пятая:

program pr5;
uses CRT;
const
n = 10;
var
a : array[1..n] of integer;
i, c : integer;
begin
clrscr;
randomize;
c := 0;

for i:=1 to n do
begin
     write('Введите ',i,' элемент: ');
     read(a[i]);
     if (a[i] mod 2 = 0) and (a[i] > 0) then inc(c);
end;

writeln;
write('Результат: ',c);

end.

Первую думай сам. Мне лень что-то.