ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,min:integer;
begin
readln (a,b,c);
if b>a and c>a then min:=a;
if c>b and a>b then min:=b;
if b>c and a>c then min:=c;
writeln (min);
end.

Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,d,max:integer;
begin
readln (a,b,c);
if b>a and b>c and b>d then max:=b;
if a>b and a>c and a>d then max:=a;
if c>a and c>d and c>d then max:=c;
if d>a and d>c and d>b then max:=d;
writeln (min);
end.

Эх.Кратенько не получилось)
FAT (от англ. File Allocation Table — «таблица размещения файлов» ) — файловая система, используемая в операционных системах DOS и Windows. Логический диск, отформатированный в системе FAT, имеет следующие разделы:

* загрузочный сектор;
* таблица размещения файлов — собственно FAT (традиционно в двух экземплярах) ;
* корневой каталог;
* файлы.

Для хранения файлов всё доступное для них пространство разбивается на кластеры. Таблица размещения файлов содержит ячейки, каждая из которых указывает на определенный кластер на жестком диске. Если кластер принадлежит файлу, то его ячейка содержит номер следующей ячейки этого же файла. Если ячейка указывает на конец файла, она содержит значение «». Неиспользуемые кластеры помечены нулём. «Плохие» кластеры помечены специальным кодом.

Существует три версии FAT — FAT12, FAT16 и FAT32. Они отличаются количеством бит, отведённых для хранения номера кластера. FAT12 применяется в основном для дискет, FAT16 — для дисков малого объёма.

В различных операционных системах также были внедрены различные расширения FAT. Например, в DR-DOS имеются дополнительные атрибуты доступа к файлам; в Windows 95, Linux и Proolix — поддержка длинных имён файлов; в OS/2 — расширенные атрибуты файлов.

NTFS (от англ. New Technology File System — «файловая система новой технологии» ) — стандартная файловая система для семейства операционных систем Microsoft Windows NT (Windows 2000, Windows XP, Windows Server 2003, Windows Vista).

NTFS заменила ранее использовавшуюся в MS-DOS и ранних версиях Windows файловую систему FAT. NTFS поддерживает систему метаданных и использует специализированные структуры данных для хранения информации о файлах для улучшения производительности, надёжности и эффективности использования дискового пространства. NTFS имеет встроенные возможности разграничивать доступ к данным для различных пользователей и групп пользователей, а также назначать квоты (ограничения на максимальный объём дискового пространства, занимаемый теми или иными пользователями) . NTFS использует систему журналирования для повышения надёжности файловой системы.

Различают несколько версий NTFS: v1.2 используется в Windows NT 3.51 и Windows NT 4.0, v3.0 поставляется с Windows 2000, v3.1 — с Windows XP и Windows Server 2003. Иногда последние версии обозначают как v4.0, v5.0 и v5.1 в соответствии с версиями Windows, с которыми они поставляются.

Чтобы разъяснить происходящее, были сделаны следующие шаги.
1. Константы 3.1 и 0.8 переведены в машинное представление а затем назад в десятичное с максимальной для паскалевских данных вещественного типа real (он же double) точностью (вложения 1 и 2).
2. В системе компьютерной алгебры, позволяющей работать с произвольной точностью (выбрана точность в 30 значащих цифр) для полученных констант выполнены соответствующие заданному фрагменту программы вычисления (вложение 3)
3. Результат 0.499999999999999955591079014996 был переведен в машинное представление. Затем в машинное представление была переведена константа 0.5, которая, как видно во вложении 4, представляется в компьютере точно. Поэтому проверка на точное равенство с 0.5 дает не тот результат, который Вы ожидали.
4. Можно было также воспользоваться программой на паскале.
begin
  var x:=3.1;
  var y:=0.8;
  var p:=2;
  var a:=Frac(x); // =0,1
  var b:=Frac(y)-0.5; // =0,3
  var kp:=sqrt(sqr(0.5-a)+b*b); // =0,5
  if abs(kp-0
  Writeln(kp-0.5)
end.

Результат: -5.55111512312578E-17
Это как раз то, что так портит Вам всю картину.

По поводу Вашего условия if kp>=0.5 then p=p+1;
Ошибка имеет порядок 0.6·10⁻¹⁶ и наверно ничего страшного не будет, если оператор (с запасом) подправить на if kp>=(0.5-1e-15) then p:=p+1;