Скодом программы которая считывает из входного файла 3 числа и из них находит 2 наименьших. на pascal.net.

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a:=ReadAllText('input.txt').ToReals.Take(3).ToArray;

 a.Where(t->t<>a.Max).Println

end.

Во втором вложении - тестовый файл input.txt

1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea

1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea