[Skuttbin]

Помогите пожалуйста написать прогу (Turbo Pascal)

Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.

[KiberElzin]

Помогите решить
Напишите программу, находящую количество троек целых чисел a, b, p таких, что p — простое число, числа удовлетворяют равенству:
√a−√b=√p
и каждое из чисел a, b и p лежит в промежутке от N до M (т. е. N ≤ a ≤ M, N ≤ b ≤ M, N ≤ p ≤ M).
Формат входных данных.
Во входном файле записаны целые числа N и M (0 ≤ N ≤ M ≤ 100000).
Формат выходных данных.
В выходной файл выведите искомое количество троек чисел a, b, p.