ExforNP

program lab1v16fornp;
USES CRT;
var
    a, b, c, h, x, z:real;

procedure read_data();
    begin
        writeln('Введите диапазон значений');
        write('от ');
        readln(a);
        write('до ');
        readln(b);
        write('Введите шаг ');
        readln(h);
    end;

procedure check_step();
    begin
        if h <= 0 then
            begin
                writeln('Шаг должен быть положительным. Повторите ввод данных.');
                c := 0;
            end;
    end;

procedure check_data();
    begin
        if a >= b then
            begin
                writeln('Диапазон введён неверно. Повторите ввод данных.');
                c := 0;
            end
        else
            c := 1;
    end;

begin
    clrscr;
    repeat
        begin
            read_data();
            check_data();
            check_step();
        end;
    until(c = 1);
    x := a;
    while x <= b do
        begin
            if x < 10 then
                z := sqr(4 - x) * (4 - x)
            else
                if x <= 16 then
                    z := 2 * x
                else
                    z := 12 * x;
            x := x + h;
            writeln('Z= ', z:10:5);
        end;
    readln();

end.