Составить программу. Сколько стоит телеграмма если в ней N слов, стоимость…

Program Da; var N,r: integer; s: real; begin writeln ('введите N'); readln (N); writeln ('введите r'); readln (r); s: =r*n /100; writeln (s: 5:3,' гривны'); end. Попробуй так. Не знаю равильно ли=)