This is a small program which I made for beginners! - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

This is a small program which I made for beginners!

Xaser-3Xaser-3 Posts: 9Member
Program first_program;
uses crt;
var
name: string;
age: integer;
begin
clrscr;
writeln('Hello, Welcome to this program.');
writeln('');
textcolor(blue);
textbackground(yellow);
write('Please enter your name: ');
readln(name);
sound(340); Delay(100); Nosound;
sound(200); Delay(100); Nosound;
writeln('');
textcolor(yellow);
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
writeln('Hello ' , name , '!');
writeln('');
write('Please enter your age: ');
readln(age);
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
writeln('');
writeln('So you are ' , age , ' years old');
textbackground(yellow);
textcolor(red);
writeln('Do you want to continue? (y/n) ');
writeln('');
writeln('Goodbye');
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(123); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
sound(440); Delay(100); Nosound;
sound(550); Delay(100); Nosound;
textcolor(blue+blink);
textbackground(black);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln('This program was made by Xaser-3');
readkey;
end.

{ By Daniel Patick Borg }


Sign In or Register to comment.