даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей

for i:=1 to 3 do
for j:=1 to 3
write(j);

Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти

Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.

среднее арифметическое кубов этих чисел.