K, M, G и T - это названия размерностей информации: Килобайт, Мегабайт, Гигабайт и Терабайт соответственно. Переменная A служит для временного "принятия" количества байт, которые переведутся в K, M, G и T.
Как бы проще объяснить, откуда 1024 - не знаю. В информатике так устроено, что в бит - это 1 элемент, байт - 8 битов, килобайт - 1024 байт и с этого момента последующая размерность будет иметь 1024 информации предыдущей размерности, то есть мегабайт - 1024 килобайт, гигабайт - 1024 мегабайт и так далее. Вообще - это стоит просто запомнить.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>
Нужно одновременно нажать клавиши Ctrl+Alt+Del