Minggu, 14 Agustus 2011

pascal


VAR
l,b : integer;
BEGIN
b :=0;
l :=1;
while l>10 do
begin
b:=b+1;
l:=l+1;
WRITE('l:','b:',b);
END;
END.
Diposting oleh inoe suqhi nomigara di 17.37
 

Template Design By:
SkinCorner