Algoritmo que calcule a quantidade de Latas de Tinta

Construa um algoritmo que calcule a quantidade de latas de tinta necessária e o custo para pintar tanques cilíndricos de combustível onde são fornecidos a altura e o raio desse cilindro

Sabendo que:

A lata de tinta custa R$100,00
Cada lata de tinta contém 5 litros
Cada litro de tinta pinta 3 m².

Pseudocódigo:

programa exercicio6
var
   area, raio, custo, quantidadelatas, areabase, arealateral, litros : real;
inicio
   leia area;
   leia raio;
   areabase ← (3,14 * (raio ** 2));
   arealateral ← (2 * 3,14 * raio * altura);
   area ← (areabase + arealateral);
   litros ← area / 3;
   quantidadelatas ← litro / 5;
   custo ← quantidadelatas * 100;
 escreva custo;
 escreva quantidadelatas;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 03/03/2010
Program exercicio6 ;
 uses crt;
 var
 area, raio, custo, quantidadelatas, areabase, arealateral, litros : real; 
 Begin
 writeln('Insira a altura');
 readln(area);
 writeln('Insira o raio');
 readln(raio);
 areabase := (3.14*exp(raio*ln(2)));
 arealateral := (2*3.14*raio*area);
 area := (areabase + arealateral);
 litros := area / 3;
 quantidadelatas := litros / 5;
 custo := quantidadelatas * 100;
 writeln('O custo = ', 'R$', custo:7:2); 
 writeln('A quantidade de latas = ', quantidadelatas:5:0);
 writeln('Pressione para fechar');
 readkey;  
End.