Даны x, y. Составить программу вычисления значения выражения: (Pascal)

Х- баскетболистов 3х - футболистов 3х +9 = х + 33 3х - х = 33 - 9 2х = 24 х = 12 - баскетболистов 12 * 3 = 36 - футболистов проверка: 12 +33 = 45                   36 + 9 = 45

Вот решение :                                                                                

Var x,y: real; begin readln(x,y); if x+y< > 0 then writeln((abs(x-y)+1)/abs(x+y): 5: 2) else writeln('деление на 0'); end. пример: 5 7 0.25

Без прелюдий, только основная часть программы:
 While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET

Автомобиль: марка: зарубежная и отечественная
Костюм: спортивный, школьный, повседневный
Государство: клерикальное(где религия государственная), светское, атеистическое
Школа: начальная, средняя, дополнительного образования
Игры: развивающие, развлекательные, творческие, ролевые
Информация: текст, сигналы, рисунки, жесты, запахи
Искусство: литература, музыка, живопись

Программа, которая формирует массив из 7 случайных чисел из промежутка [5;10] и вычисляет их сумму