某市的士起步价为8元,可行3公里,3公里之后每公里1.6元计算.请输入公里数,输出应付的钱数. 请用PASCAL语言做

某市的士起步价为8元,可行3公里,3公里之后每公里1.6元计算.请输入公里数,输出应付的钱数. 请用PASCAL语言做
某市的士起步价为8元,可行3公里,3公里之后每公里1.6元计算.请输入公里数,输出应付的钱数. 请用PASCAL语言做

某市的士起步价为8元,可行3公里,3公里之后每公里1.6元计算.请输入公里数,输出应付的钱数. 请用PASCAL语言做
var n:real;
begin
read(n);
if n