Если не видно на скриншоте

program v1;

var k,n:longint;

s:integer;

 begin

   writeln('Введите число: '); readln(n);

   s:=0;

   k:=n;

   while k>2 do

   begin

     s:=s+k;

     k:=k-1;

   end;

   writeln('',s);

 end.