Бояғыштың түсі деген не? ​

C#:
{
double x = Convert.ToDouble(Console.ReadLine());
double y = Convert.ToDouble(Console.ReadLine());

if ( x > y)
{
x = x / 0,9;
}
else if (y > x)
{
y = y / 0,9;
}
else Console.WriteLine("Числа одинаковые \n");
 Console.WriteLine("x = {0}, y = {1}" , x, y);
}

надеюсь, что устроит
более-менее понятно, можно разобраться

на паскале:
begin
var x, y: double;
readln(x);
readln(y);

if x > y then
x := x div 0,9;
else if y > x then
y := y div 0,9;
else writeln("числа одинаковые");
writeln("x = ", x, "y = ", y);

на паскале мб чутка неверно написано

Не знаю, на каком языке ты программируешь... я написал на C#
 using System;
namespace ConsoleApplication55{    class Program    {        static void Main(string[] args)        {            link:            Console.Write("Введите кол-во элементов  числовой последовательности: ");            int kol = Convert.ToInt32(Console.ReadLine());            if (kol > 100 || kol < 0)                goto link;            Random ran = new Random();            int[] array = new int[kol];            Console.WriteLine("\nПоследовательность чисел в строчку: ");            for (int i = 0; i < array.Length; i++)            {                array[i] = ran.Next(1, 1000);                Console.Write(array[i] + " ");            }            Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n");            for (int i = 0; i < array.Length; i++)                Console.Write(array[i] + "\n");            Console.ReadKey();        }    }}
Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь  него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.