Написать программу паскаль, которая б вычисляла сумму процентов начисленных в банке под 18% на срок - 1 год. входные данные: сумма. выходные данные: сумма процентов.

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