Задание в PascalABC

program ZalupaConya;

var
x, y, a, b, c, d, k: integer;

begin
// Ввод значений переменных
writeln('Введите значение переменной x:');
readln(x);
writeln('Введите значения переменных b, c, d, k:');
readln(b, c, d, k);

// Вычисление выражения y = 15x² + 8x - 9
y := 15 * x * x + 8 * x - 9;
writeln('Значение выражения y = ', y);

// Вычисление выражения a = (b - c) * d - k
a := (b - c) * d - k;
writeln('Значение выражения a = ', a);
end.