Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  demo2
Language: PASCAL
Code:
program Demo2;
uses crt;
var
  name:string;
  age:integer;
  sex:char;
  height:real;
begin
  write('Enter your name: '); readln(name);
  write('Enter your age: '); readln(age);
  write('Enter your height in metres: '); readln(height);
  write('Enter your sex (M/F): '); readln(sex);
  write('Hello, ');
  if sex = 'M' then begin
    write('Mr');
  end
  else begin
    write('Ms');
  end;
  writeln(' ', name, '.');
  writeln('You are ', age, ' years old.');
  writeln('You are ', height*100:0:1, ' cm tall.');
end.
Comments: