Составить программу, которая определяет, принадлежит ли заданное число отрезку [0; 2]. на языке pascal, pascalabc.net

1. PascalABC.NET

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('Введите число:');
  Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.

Пример
Введите число: 1.17
Да

2. На этой же версии в стиле традиционного школьного паскаля

var
  x:real;
begin
  Write('Введите число: '); Read(x);
  if (x>=0) and (x<=2) then Writeln('Да')
  else Writeln('Нет')
end.

 var
b:array [1..100] of integer;
   a:array [1..100,1..100] of integer;
   i, j,n,m,k1,k2: integer;
begin
writeln ('Введите Кол-во строк');
readln (n);
writeln ('Введите Кол-во столбцов');
readln (m);
writeln ('Введите к1');
readln (k1);
writeln ('Введите к2');
readln (k2);
for i :=1 to n do
      for j :=1 to m do
         readln ( a [ i , j ]);
         writeln ('Исходный массив');
         for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
writeln;
     for j :=1 to m do
       b[j]:=a[k1][j];
         for j :=1 to m do begin
        a[k1][j]:=a[k2][j];
        a[k2][j]:=b[j];
      end;
      writeln ('Массив после операций');
      for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
end.

Существенные:
а) костюм->брюки->пуговица->нитка
Пуговицы могут быть заменены иными застежками.
б) автомобиль-> двигатель->поршень
Двигатель может быть турбинным, электрическим и т.д.
в) компьютер->системный блок->материнская плата->шина->контроллер жестких дисков
Не обязательно иметь системный блок и/или жесткий диск (микроконтроллеры, встроенные вычислители)
г) телефонная сеть->соединительные провода->узлы->абонентская аппаратура
Телефонная сеть может быть беспроводной и с одним абонентом. Например, прямая связь руководителей двух государств. Чтобы не подслушивали)))
д) школа->руководство->персонал->актив->учащиеся
Тут комментарии излишнни.
е) армия->командующий->рядовой->автомат
Не обязательно солдата вооружать автоматом.
ж) государство->президент->министры->народ
При авторитарном режиме (например, военная диктатура) нет ни президента, ни министров.