Bài 1:
uses crt;
var s,x,i:longint;
begin
clrscr;
readln(x);
i := 0;
while (3*x+i) <= 100 do
 begin
  s := s + (3*x+i);
  i := i + 1;
 end;
writeln('S = ',s);
readln;
end.

Bài 2:

uses crt;
var s,x,i:longint;
begin
clrscr;
readln(x);
i := 0;
while (5*x+i) <= 150 do
 begin
  s := s + (5*x+i);
  i := i + 2;
 end;
writeln('S = ',s);
readln;
end.

Bài 3:

uses crt;
var t,a,i:longint;
begin
clrscr;
readln(a);
i := 2;
while (sqr(a)+i*a)<=500 do
 begin
  t := t + (sqr(a)+i*a);
  i := i + 1;
 end;
writeln('T = ',t); 
readln;
end.

Bài 1 :

uses crt;

var x, S, i : integer;

begin

clrscr;

write('Nhap x = '); readln(x);

S := 0; i := 0;

while (3 * x + i) <= 100 do

begin S := S + (3 * x + i);

i := i + 1; end;

write('S = ', S);

readln

end.

Bài 2 :

uses crt;

var x, S, i : integer;

begin

clrscr;

write('Nhap x = '); readln(x);

S := 0; i := 0;

while (5 * x + i) <= 150 do

begin if i mod 2 = 0 then

S := S + (5 * x + i);

i := i + 1; end;

write('S = ', S);

readln

end.

Bài 3 :

uses crt;

var a, i, T : integer;

begin

clrscr;

write('Nhap a = '); readln(a);

T := 0; i := 2;

while T <= 500 do

begin T := T + (a * a + i * a);

i := i + 1; end;

write('T = ', T);

readln

end.