Il mio primo programma in turbo pascal

[ganesha]

così ti funziona?:

program convertitore;
uses crt;
var num,tasso,risultato:integer;
begin readln(num);
tasso: =1936.27;
risultato:=num*tasso;
writeln(risultato);
readln;
end.