Помогите написать программу на PASCAL

[xxasb07]

Нужно написать программу на языке PASCAL, которая суммирует натуральные числа от 1 до 50 и выводит результат вычисления на экран, используя цикл с послеусловия

[DeKot]

Var
   x,y: integer;
begin
  x:= 1; y:= 0;
  repeat
  y:= y + x;
  x:= x + 1;
  until  x = 51;
  Form1.Canvas.TextOut(100,100.IntToStr(y)); 
end;

[xxasb07]

DeKot, БОЛЬШОЕ ВАМ СПАСИБО!!!!!!!