Var s,a:real; begin write('введите сумму '); readln(a); s:=a*18/100; writeln('сумма процентов ', s); end.