выполните арифметическое действие 1010001011+1111001010

x,y:real;
begin
writeln('введите x');
readln(x);
begin
if (abs(x)<=1) then
y:=sqr(x)-1;

else
if(abs(x)>1) and (abs(x)<=2)
then
y:=2*x-1;
else
if (abs(x)>2) then
y:=exp(5*ln(x))-1;
end;
writeln ('y=',y);
End.


где ошибка в программе? пишет: : Встречено 'else', а ожидался оператор. Нужно найти у, при определенных значениях х.

торон 16:10, а глубина цвета – 24 бит.
2) Перевести темно-голубой (0, 152, 220) из RGB в HSB, умень-шить яркость в 2 раза и перевести обратно.
3) Сравните размер изображения одного, а лучше всех из пере-численных форматов с размером, который оно должно занимать, если хранить его без сжатия. Запишите степени сжатия по сравнению с не сжатым файлом.

Убедительная просьба писать подробнее и желательно до 24 июня. Заранее благодарю.

разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)

(задания 5,6,7 во втором файле)

вычислить площадь этого треугольника. Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление). Составить программу, которая по выведенному номеру выполняет то или иное действие над числами.