Укажи все высказывания: а)эта карточка, наверное, синего цвета; б)число 10 не превосходит единицы; в)пейте томатный сок! ; г)великий ученый м.в. ломоносов родился в 1711 году выбери все истинные высказывания: а)город джакарта – столица индонезии; б)решение – информационный процесс; в)меню в программе – это список возможных вариантов; г)сканер – это устройство, которое может напечатать на бумаге то, что изображено на экране компьютера; д)мышка – это устройство ввода информации;

1. б. 2. г,

1.
б, г
2.
а. Потому что, Город Джакарта особый столичный округ, столица и крупнейший город Индонезии. Расположена на северо-западе побережья острова Ява при впадении реки Чиливунг в Яванское море. 
б. Потому что, Информационный процесс — процессполучения, создания, сбора, обработки, накопления, хранения, поиска, распространения, представления и использования информации
в. Потому что, Меню́ — элемент интерфейса пользователя, позволяющий выбрать одну из нескольких перечисленных опций программы. 
д. Потому что, компью́терная мышь — координатное устройство для управления курсором и отдачи различных команд компьютеру.
В итоге ответ:
а, б, в, д.

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка