Program(input,output)
var
yourname:string;
x:integer;
Begin
writeln('Please enter your name');
readln(yourname);
writeln('Hello ' ,yourname,' I am a beginner programmer, new to this forum but I've been a geek my whole life(all sixteen years) I am an eleventh grader in a private school on the little island of St.Croix, a little less then a parsec off the coast of Florida, in the United States Virgin Islands. I love learning programming languages and I am afraid I am becoming addicted to this site because of that. I hope to become a part of the DaniWeb community.);
for x:=1 to 10 do
writeln('p.s.This program was written in Pascal');
end.