PASCAL: AN INTRODUCTION

PROGRAM ONE
You are to write a program which calculates and prints on the screen, the time required to travel 3000 miles at a speed of 500 mph.


	program PROG1 (output);
	var  Time, Distance, Speed : real;
	begin
	     Distance := 3000;
	     Speed    := 500;
	     Time := Distance / Speed;
	     writeln('It takes ',Time,' hours.')
	end.

PROGRAM TWO
Write a program to calculate the gross pay for a worker named FRED given that FRED worked 40 hours at $2.90 per hour.


	program PROG2 (output);
	var  grosspay, hoursworked, hourlyrate : real;
	begin
	     hoursworked := 40;
	     hourlyrate  := 2.90;
	     grosspay    := hoursworked * hourlyrate;
	     writeln('FRED''s gross pay is $', grosspay )
	end.