in ra số lớn nhất thì mình nghĩ có cách này :/ 
program abc; 
uses crt; 
var a,b,c,dmax : integer; 
begin 
clrscr; 
write ( ' nhap a =' ); 
readln (a); 
write ( ' nhap b = '); 
readln (b); 
write ( ' nhap c =' ); 
readln (c); 
write ( ' nhap d = ' ); 
readln (d); 
a:=max; 
if max<b then max:=b; 
if max<c then max :=c; 
if max<d then max :=d; 
write ( ' so lon nhat la',max); 
readln; 
end. 
( mình không chắc nha :I )

Var i,s:integer;

Begin

i:=0;

While s<=1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n nho nhat la ',i);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

string n;

int main()

{

cin>>n;

d=n.length();

ln=48;

nn=57;

for (i=0; i<=d-1; i++)

{

ln=max(ln,int(n[i]));

nn=min(nn,int(n[i]));

}

cout<<char(ln)<<" "<<char(nn);

return 0;

}

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=0;

repeat

i:=i+1;

s:=s+i;

until s>1000;

writeln(s);

if (s>1500) then writeln('co')

else writeln('khong');

readln;

end.

program TongSn;
var
  N, S: integer;
begin
  S := 0;
  N := 1;
  while S <= 1000 do
  begin
    S := S + N;
    N := N + 1;
  end;
  writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
  writeln('Tong S', N-1, ' la: ', S);
end.

uses crt;

var n,i,s:integer;

begin

clrscr;

n:=1;

s:=0;

repeat

s:=s+n;

n:=n+1;

until s>1000;

writeln(n);

readln;

end.

giúp mình với

tham khảo 

Program HOC24;

var n: byte;

begin

n:=0;

while n<50-1 do n:=n+1;

write('N=',N); 

readln

end.

Ở đây b nhé: Câu trả lời

-------------------
Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.
---------------------

Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write('Tong S=',S);
Readln;
End.