Algoritmo que calcule o número de salários mínimos

Faça um programa que leia o nome do funcionário, o valor do salário mínimo e o salário do funcionário e calcule quantos salários mínimos ele ganha

Pseudocódigo:

programa exercicio13
var
   valor_sm, salario_func, qsm : real;
   nome_func : caractere;
inicio
   leia nome_func;
   leia valor_sm;
   leia salario_func;
   qsm ← salario_func / valor_sm;
 escreva qsm;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 29/12/2013
Program exercicio13; 
 uses crt;
 var
 nome_func : string;
 valor_sm, salario_func, qsm : real; 
 Begin
 writeln('Insira o Nome do Funcionario');
 readln(nome_func);
 writeln('Insira o Valor do Salario Minimo');
 readln(valor_sm);
 writeln('Insira o Salario do Funcionario');
 readln(salario_func);
 qsm := salario_func / valor_sm;
 writeln('O Funcionario ', nome_func, ' recebe = ', qsm:7:2, ' salarios minimos'); 
 writeln('Pressione para fechar');
 readkey;  
End.