Отыскать значения функции у= 5х+х2, при х=50, 49, 48, 47, ,

Текст программки на Паскале:

var
y: integer;
x: integer;
begin
for x:= 50 downto 40 do begin //изменяем значение x от 50 до 40 при подмоги цикла
y:= x* 5 + x* x; //находим значение функции при каждом значении x
writeln (При x= , x, значение функции у= 5х+х2 равно , y);
end;
end.