Нужно написать на паскале. дана величина а , выражающая объем в кбайтах. получить этот объем информации в байтах.

Var
  a:int64;
Begin
  write('Введите количество Кбайтов ');
  Readln(a);
  write(a,' кбайтов = ',a*1024,' байтов');
End.

1 Кбайт = 2^10 байт
var a: real;
begin
readln(a); 
a:=a*2^10;
writeln(a);
end.