Question

почему не получается программа?
В паскале abc
Var a,b: real;
begin
writeln('введите количество килограмм');
readln(a)
b:=a/1000;
writln (a, ' кг = ',b, ' тонн');
end