Algoritmo que converta Celsius em Fahrenheit

Leia uma temperatura em graus Celsius e apresente convertida em graus Fahrenheit.

A fórmula é:

F = ( 9 x C + 160 ) / 5

Sendo F a temperatura em Fahrenheit e C a temperatura em Celsius.

Pseudocódigo:

programa exercicio7
var
   c,f : real;
inicio
   leia c;
   f ← (9 * c + 160) / 5;
 escreva f;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 03/03/2010
Program exercicio7 ;
uses crt;
var
c, f : real;
Begin
writeln('Insira a temperatura Celsius');
readln(c);
f := (9*c+160)/5;
writeln('A temperatura Fahrenheit = ', f:5:2, ' F');
writeln('Pressione para fechar');
readkey;   
End.