помогите, господа програмисты! Опции

[эээээ]

я ничего непонимаю в паскале!!!!
помогите написать программу!!!!

составить программу еревода английской меры длины дюйм в метры, если известно, что один дюйм равен 2.54 см.
Алгоритм:
1-в разделе описании переменных var
d;m: real;
2-вводим кол-во дюйм
3-составляем формулу переводамеры длины дюйм в метр
4-выводим на экран write ( d:7:2, дюймов= , m:7:3 ,метров ) ;

[trew]

program s1;
var m,d:real;
begin
writeln('введите d');
readln(d);
m:=d*0.0254;
writeln(m:5:4);
readln;
end.