7-й вариант 1.)Дано три числа a,b,c. Отыскать разность меж великим и

Задачка 1)
//PascalABC.NET

begin
    writeln('Введите через пробел три числа');
    var a := ReadArrInteger(3);
    write('Разность большего и меньшего одинакова ');
    writeln( a.Max - a.Min )
end.

Задачка 2)
//PascalABC.NET

var
    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.

Результаты в приложениях