Напишите программу по блок-схеме

Pascal:

var a,b,i:integer;

begin

   write('Введите а: '); readln(a);

   if a < 1 then write('Число не может быть меньше единицы')

   else begin

       for i:=1 to a do begin

           b:=b+i;

       end;

       write('b = ', b);

   end;

end.