7-й вариант
1.)Дано три числа a,b,c. Найти разность между большим и меньшим числом.
2.) Сложить таблицу значений функции y= e^x - sin(x)cos(x) на промежутке (a,b) с шагом k.

Задача 1)//PascalABC.NETbegin    writeln('Введите через пробел три числа');    var a := ReadArrInteger(3);    write('Разность большего и меньшего равна ');    writeln( a.Max - a.Min )end.Задача 2)//PascalABC.NETvar    y : array of real;begin    // Запрашиваем область определений    write('Введите a: ');    var a := ReadlnReal();    write('Введите b: ');    var b := ReadlnReal();    write('Введите k: ');    var k := ReadlnReal();        // Резервируем массив для значений функции    y := new real[Round((b - a) / k) + 1];        // Заполняем массив данными    for var i := 0 to Round((b - a) / k) do     begin        y[i] := Exp(a) - Sin(a) * Cos(a);                // Следующее значение        a += k    end;        // Выводим массив на экран    foreach var i in y do        writeln(i:8:3)end.Результаты в приложениях