program Vasiljev_hw6;var a:integer; b:integer;begin writeln(039;Васильев Алексей 7А

Если Вы желаете чтоб выводился результат выражения b*b*(5*a-150), то Вы пропустили скобку.

Текст программки смотрится так:

program Vasiljev_hw6;

var

 a: integer;

 b: integer;

begin

 writeln('Васильев Алексей 7А Вариант6');

 writeln('Введите переменную a: ');

 readln(b);

 writeln('Введите переменную b: ');

 readln(a);

 writeln(b * b * (5 * a - 150));

end.

Вновь же, я не понимаю почему Вы выводите 'Введите переменную а', а считываете b, и напротив