Program pr43 (Input, Output);
Label 1;
Var
X, Y: Integer;
A, B: Integer;
h : Integer;
Begin
WriteLn ('PASCAL: Вычисление значений функции Y = X^2-5*X+3');
Write ('Введите начальное значение: A = ');
ReadLn (A);
Write ('Введите конечное значение: B = ');
ReadLn (B);
Write ('Введите шаг: h = ');
ReadLn (h);
WriteLn ('Первый способ вычислений:');
X := A;
While (X <= B) Do
Begin
Y := X * X - 5 * X + 3;
WriteLn ('При X = ', X, ' значение Y = ', Y);
X := X + h;
End;
WriteLn ('Второй способ вычислений:');
X := A;
1: Y := X * X - 5 * X + 3;
WriteLn ('При X = ', X, ' значение Y = ', Y);
X := X + h;
If X <= B Then
Goto 1;
ReadLn;
End.