Для какого наибольшего целого числа А формула ((x ≤ 9) →(x ⋅ x ≤ A)) ⋀ ((y ⋅ y ≤ A) → (y ≤ 10)) тождественно истинна (то есть принимает значение 1 при любых целых неотрицательных значениях переменных x и y)?

Графический интерфейс пользователя это некоторая среда, воспроизводящая элементы управления графического характера, необходимая для более наглядного взаимодействия пользователя с программой(то есть GUI программе вобще не нужен, так как данные в поргу поступают из файла или считываею с некоторого порта, идентично выводятся(ведь монитор и клавы тоже подключены к соответствующим портам)). Пример графического интерфейса это например X11, позволяет выводить информацию(бесполезные сведенья) на экран монитора(для вывода рисунка на принтер графический интерфейс не нужен) в графическом виде, то есть в виде точек. Не путать с интуитивным интерфейсом, который позволяет также создавать формы, содержащие интуитивнопонятные элементы управления.

// PascalABC.Net

function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
  d,nd,sd:byte;
begin
  sd:=0; nd:=0;
  repeat
    d:=n mod 10;
    sd:=sd+d; Inc(nd);
    n:=n div 10
  until n=0;
  IsNice:=(sd mod nd = 0)
end;

var
  i,n,k:longint;
begin
  Write('Порядковый номер "красивого" числа: '); Read(n);
  i:=1; k:=0;
  repeat
    if IsNice(i) then Inc(k);
    if k<>n then Inc(i)
  until k=n;
  Writeln('Красивое число равно ',i)
end.

Тестовое решение:
Порядковый номер "красивого" числа: 15
Красивое число равно 20