Программа на паскале:
var x: integer; s: real;
begin
readln(x);
s:=3.6/20*x*365;
writeln(s:4:1, ' гр');
end.
Пример:
5
328.5 гр