program blokshema;
var b,c:integer;
begin
b:=0;
c:=0;
repeat
c:=c+b;
b:=b+1
until
b<>1;
write('b=',b,';c=',c);
end.
program dvuznachnie;
var i:integer;
begin
for i:=10 to 99 do
begin
if (i mod 3 = 0) or (i mod 5 = 0) then write(i,' ')
end;
end.
program summapervih80;
var i,c,s:integer;
begin
s:=10;c:=10;
for i:=1 to 79 do
begin
s:=s+3;
c:=c+s;
end;
write(c)
end.
