Помогите пожалуйста)задачи делаются в паскале

Помогите пожалуйста. Болел почти 2 недели, а в классе начали проходить программирование на языке Паскаль. Попросил учителя объяснить, на что мне ответили:"Мне некогда отвечать, надо читать в учебнике было, пока болел". Поставил 2, а так же сказал, что вызовет завтра, чтобы проверить, как я прочитал в учебнике.Пришёл домой, а в учебнике этого нет. Посоветуйте кто-нибудь какое-либо пособие или небольшую книгу, по которой можно научиться делать программы на уровне 9 класса.

символов . Какое количество информации в этом сообщение?

Помогите решить задачи в паскале!!!
Составить программу для:
1)Решения линейного уравнения ах + в = 0 (а,в ≠ 0).
2)Найти площадь кольца по заданным внешнему и внутреннему радиусам
3)Даны катеты прямоугольного треугольника, Найти его площадь и периметр
4)Даны два числа. Найти среднее арифметическое их модулей
5)Даны координаты двух точек на плоскости. Вычислить расстояние между ними
6)Даны два основания и высота прямоугольной трапеции. Найти ее площадь и периметр
7)Найдите разность между трехзначным числом и произведением его цифр

1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;

2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.

Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!

типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!

второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)

что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?