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

Конечно нет, это паскаль. В задании где-то что-то сказано про бейсик?

а если я сейчас создам ещ' одно такое же  для  бейсика решишь?

Сейчас добавлю на бейсике ответ сюда.

спс тебе большое

Посмотри мой аккаунт ещё один там задачу решить надо тоже бейсик znanija.com/task/17030369

vari: integer;beginfor i:=1 to 10 dowriteln(i, ' Кбайт = ', i*1024, ' байт');end.БейсикDIM I AS INTEGER;FOR  I:=1 TO 10PRINT I*1024NEXT I