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.
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.