Напишите программу которую сменяют длину n см на фут и дюйм. для справки: 1 дюйм = 2,54; 1 фут = 12 дюйм

Program abc;
Var N, Q, B: real;
Begin
Readln(N) ;
Q:=N/2.54;
B:=Q/12;
Writeln(Q) ;
Writeln(B) ;
Writeln(N) ;
End.