створіть проект у якому потрібно сформувати табличну величину з 8 дійсних чисел, що знаходиться в рядках багаторядкового поля і зафарбувати в зелений колір фігури, що відповідають найбільшим елементам табличної величини

var

  n:integer;

begin

  write('n = ');

  readln(n);

  if (n mod 10) > ((n div 100) mod 10) then

    writeln('Последняя больше второй')

  else

    if (n mod 10) < ((n div 100) mod 10) then

      writeln('Вторая больше последней')

    else

      writeln('Они равны');

  readln;

end.

// Вторая программа

var

  n, Pr:integer;

begin

  write('n = ');

  readln(n);

  Pr := 1;

  while n > 0 do

  begin

    Pr := Pr * (n mod 10);

    n := n div 10;

  end;

  writeln('Pr = ', Pr);

  if Pr mod 5 = 0 then

    writeln('Кратно')

  else

    writeln('Некратно');

  readln;

end.

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2:integer;

begin

  write('x1 = ');  readln(x1);

  write('y1 = ');  readln(y1);

  write('x2 = ');  readln(x2);

  write('y2 = ');  readln(y2);

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

    writeln('A ближе')

  else

     if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

       writeln('B ближе')

     else

       writeln('Они на одинковом расстоянии');

readln;

end.