Program <любое название на английском>
uses crt;
var n:integer;
begin
read(n);
for n:=1 to 20 do writeln(n, '$= ', 65*n, 'рублей');
end.
Вроде так.
