Сделать программу вычисления заработков по вкладу. Исходным данным является 1)величина

Сделать программку вычисления заработков по вкладу. Начальным данным является
1)величина вклада
2)срок вклада
3)процентная вставка
Начальные данные вводятся с клавиатуры. Формула для расчет заработка по вкладу =( величина вклада * процентная вставка / 100) / 365 * срок вклада
Программка:
program a1;
var
p, s, v, d: real;
begin

write ( Процентная вставка :) ;
readln ( p) ;
write ( Величина вклада :) ;
readln (v) ;
write ( срок вклада : ) ;
readln (s) ;
d := ( v * p/ 100)/( 365* s) ;
writlen ( Доход равен : , d:0:2) ;

end.
переведите на обыденный кумир-алг,нач,кон.....