Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  FIndAreaOfRect
Language: PASCAL
Code:
Program FindAreaOfRect;
Uses CRT;

Var
LengthOfRect:real;
WidthOfRect:real;
AreaOfRect:real;

Begin
clrscr;
write('Enter the length of the rectangle:  ');
readln(LengthOfRect);
write('Enter the width of the rectangle:  ');
readln(WidthOfRect);
AreaOfRect:=LengthOfRect*WidthOfRect;
write('The area is: ' AreaOfRect);
readln;
End.
Comments: