var a,b,c,d,e:real; begin read(a); b:=a*(80/100); c:=a*(90/100); d:=(a+b+c)/3; write(d:0:1); end. /************************************************************** Problem: 1613 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/