How do you solve this pascal Edit my code in pascal i really need come help. here's my code. Sorry but its a bit messy. unit hospital interface uses crt implementation Var namestring typeofroomtptvcha?

Answer 1

i mean unit hospital;

interface

uses crt;

implementation

Var

name:string;

typeofroom,tp,tv:char;

month, day, year, daysstayed,roomcharge,tpcharge,tvcharge,nory1,nory2,totalcharge:integer;

const

pc=125;

sc=95;

Wc=75;

Tvc=3.50;

Tpc=1.75;

begin

//prompting

writeln('please enter the patients''s name':44);

readln(name);

writeln('please enter the number of days stayed in the hospital':63);

readln(daysstayed);

writeln('please write the month':31);

readln(month);

writeln('please write the day':29);

readln(day);

writeln('pelase enter the year':30);

readln(year);

writeln('please enter y or n for which typeofroom you used. P for private, S for semi private, and W for ward':57);

readln(typeofroom);

Case typeofroom of 'P':roomcharge:=(pc*daysstayed);

's':roomcharge:=(sc*daysstayed);

'w':roomcharge:=(wc*daysstayed);

end;

writeln('enter y or n for yes or no if they used the telephone':62);

readln(nory1);

Case tpcharge of 'Y':(tpcharge:=tpc*daysstayed);

'N':(tpcharge:=0);

end;

writeln('enter y or n for yes or no if they used the television':63);

readln(nory2);

Case tvcharge of 'Y':(tvcharge:=Tvc*daysstayed);

'N':(tvcharge:=0);

end;

//computing

Totalcharge:=roomcharge+tvcharge+tpcharge;

//

end.