ну это типо
begin
writeln('Введите число');
readln(a);//читает число

заебал этот паскаль уже