2000 кб= 2 048 000б
2 048 000б ÷ 1024000 б/с= 2 сек (сек сокращяются)
3124
............................................
Это оперативная память, иначе называется ОЗУ - оперативное запоминающее устройство, по английски RAM - random access memory
Var A:integer;
Begin
WriteLn('Введи целое трёхзначное число');
ReadLn(A);
if A div 100 = A mod 10 then WriteLn(A,' - полиндром')
else WriteLn('Число не является полиндромом')
End.