Repeat untiL

uses wincrt;
var num,total,x:integer;
begin
num:=1;
total:=0;
write('masukkan bilangan : ');readln(x);
repeat
if numwrite(num,'+') else write(num,'=');
total:=total+num;
num:=num+1;
until num>x;
writeln(total,' ');
end.