... chuong trinh su dung cau truc lap For Do );Writeln( ‘ Nhap n = ‘); readln(N); For i :=1 to N do S:= s+ (i* i);Writeln( ‘ tong binh phuong cua ‘,n,’ so nguyen dau tien = ‘, s );Writeln;Write(‘ ... ‘); readln(N);S:= 0; I: =0;While ( i <n ) do Begin S:= s+ (i* i); I: =i+ 1;End;Writeln( ‘ tong binh phuong cua ‘,n,’ so nguyen dau tien = ‘, s );Writeln;Write(‘ Bam phim <Enter > de ... crt;VarY:real;N ,i :integer;BeginClrscr;Writeln( Su dung vong lap While Do );Y:=0; n:=0;While N <= 50 do 9E(n):real;gt:integer; I, N:byte;BeginClrscr;Writeln( ‘ su dung vong lap For Do ‘);Writeln(...