Составить программу перевода кб в байты от 1 до 10кб с шагом 1

Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
end.

Бейсик

DIM I AS INTEGER;
FOR  I:=1 TO 10
PRINT I*1024
NEXT I