﻿var a: integer; b: real;
begin
  for a := 2 to 20 do
  begin
    b := a * 20.4;
    writeln(a, ' шт. = ', b:0:1, ' руб.');
  end;
end.
