Не могу разобраться, 2 задачи в паскале

[Волчица]

1. Дано число а. Не пользуясь никаким другими арифметическими операциями, кроме сложения, получить: 8а за три операции.
2. Решить: http://s54.radikal.ru/i146/0903/72/bb99e0425d5c.jpg здесь уравнение.

Как решить 1. даже не догадываюсь.
2ое попыталась, но выскакивает ошибка

Var
x,y:integer;
Begin
y:=sqrt((((2*x*x)+(cos(x*x)*cos(x*x )))/abs(3*x-sin(x)))+sqrt(abs(x-3)));
writeln (y);
End.

Что не правильно?
P.s. Не ругайтесь, с паскалем познакомилась совсем недавно(

[alex_fcsm]

1

Var
a:integer;
Begin
readln(a);
a:=a+a;
a:=a+a;
a:=a+a;
writeln(a);
End.

2
операция sqrt - возвращает тип real
поэтому либо сделайте round(всему выражение)
либо y:real объявите

[Волчица]

За первую задачу спасибо огромное.
А со второй разобраться не могу, что бы не писала, всё равно какая-нибудь ошибка вылезает. Может я в скобках ошиблась? Не могли бы вы привести текст проги полностью?

[alex_fcsm]

Либо так

Var
x:integer;
y:real;
Begin
readln(X);
y:=sqrt((((2*x*x)+(cos(x*x)*cos(x*x)))/abs(3*x-sin(x)))+sqrt(abs(x-3)));
writeln (y);
End.

Либо так

Var
x,y:integer;
Begin
readln(X);
y:=round(sqrt((((2*x*x)+(cos(x*x)*cos(x*x)))/abs(3*x-sin(x)))+sqrt(abs(x-3))));
writeln (y);
End.

[Волчица]

Спасибо, огромное! Всё получилось)