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

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

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