Помогите пожалуйста.
1)НАДО НАПИСАТЬ 3 ЗАДАЧИ АН ПРОГРАМИРОВАНИИ ПАСКАЛЬ И СОСТАВИТЬ ИХ БЛОК-СХЕМЫ.ЗАРАНЕЕ СПАСИБО))))))))
1. Вычислить стоимость покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб.
2. Даны M чисел. Вывести на экран наибольшее из чисел.
3. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. Вывести на экран номер и значение элементов массива, абсолютное значение которых >10.

1)var a: real; beginread(a);if a>1000 then a:=a-a*0,05;if (a>500) and (a<=1000) then a:=a-a*0,03;write (a);end.2)var a, max: real; i, m: integer;beginread (m);for i to m do beginread (a);if a> max then max:=a;end;write (max);end.3)const n=10var a: array [1..n] of integer; i: integer;beginfor i to n dobeginread (a[i]);if (sqrt (A[i]*A[i]))>10 thenwrite (a[i]);end;end.