Помогите пожалуйста решить задание номер 7.по информатике. Тема основы алгоритмизации и программирования

Программа на паскале:

var x: integer; s: real;

begin

readln(x);

s:=3.6/20*x*365;

writeln(s:4:1, ' гр');

end.

Пример:

5

328.5 гр