35 поинтов информатика 10 классПитон/паскаль Задание А максимум

pascal

program maximum;

var

 a, b, x, max: integer;

begin

 Write('Введите X = ');

 ReadLn(x);

 for a := -20 to 20 do

   for b := -20 to 20 do

     if (-a * b + 5 * x) > max then max := -a * b + 5 * x;

 WriteLn('Максимально значение равно ', max);

end.