Turbo pascal:一斤苹果10元,输入斤数然后得出价钱

const \\常量定义
danjia=10; \\定义单价为10元\斤
var \\变量定义
jinshu:real； \\定义变量斤数为实型

begin
read(jinshu); \\读入你要的斤数；
writeln(jinshu*danjia:0:X); \\前一个定义为场宽，后一个X可以随便，表示保留X位小数
end。

var
zhongliang:real; //定义为实数类型
begin
writeln('输入斤数');
readln(zhongliang); //输入斤数
writeln(zhongliang*10:0:2); //得出价钱，保留2位小数
end.

var
n:real; //定义为实数类型
begin
readln(n); //读入
writeln(n*10:0:2); //打印，保留2位小数
end.

var
n:real;
begin
readln(n);
writeln(n*10:0:2);
end.