I had this question after viewing
Pascal Helo.
i had this script
unit hospital;
interface
implementation
uses crt;
Var
name:string;
typeofroom,tp,tv,nory1,nor
y2:char;
month, day, year, daysstayed,roomcharge,tpch
arge,tvcha
rge,totalc
harge:inte
ger;
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*daysst
ayed);
's':roomcharge:=(sc*daysst
ayed);
'w':roomcharge:=(wc*daysst
ayed);
end;
writeln('enter y or n for yes or no if they used the telephone':62);
readln(nory1);
Case nory1 of 'Y':tpcharge:=(tpc*dayssta
yed);
'N':tpcharge:=0;
end;
writeln('enter y or n for yes or no if they used the television':63);
readln(nory2);
Case nory2 of 'Y':tvcharge:=Tvc*daysstay
ed;
'N':tvcharge:=0;
end;
//computing
Totalcharge:=roomcharge+tv
charge+tpc
harge;
end.
and the error Error: Incompatible types: got "S80REAL" expected "LONGINT"
2 times
plz help me fix it
thanx