Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  stringhe
Language: PASCAL
Code:
Program XXX;
var D,C,B,A: string;
begin
A:= 'BILLIONHEARTSMONEYGANG';
writeln(A);
writeln(ord(A[0+1]));
writeln('introduci');
readln(B);
writeln(B);
writeln(B[1+1]);
writeln('introduci');
readln(C);
writeln(C);
writeln(C[2+1]);
writeln('introduci');
readln(D);
writeln(D);
writeln(D[3+1]);
readln();
end.     
          
          
          
          
          
          
          
          
          
          
          
Comments: