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

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.