Помогите . что не делал тупо постоянній повтор и нечево больше.
Паскаль . Цикл while. Обчислити сумму чисел от заданного числа до 150. Число ввести с консоли. Если Введение число> 150, вивести СООБЩЕНИЕ об ошибках, если <150, обчислити сумму, если = 150 - вивести 150

Program n_1;

var x, y, i:integer;

begin

   readln(x);

   if (x<=150) then begin

       y:=0; i:=150;

       while (i>=x) do begin y:=y+i; i:=i-1; end;

       writeln (y);

   end

   else writeln ('Ошибка')

end.