Написать программу вычисления объема параллелепипеда- Pascal(Паскаль)

program _1_2;

uses crt;

var
  dlina, shirina, vysota: real;

begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление объёма параллелепипеда.');
  Writeln('Введите исходные данные:');
  write('Длина (см) -> ');
  readln(dlina);
  write('Ширина (см) -> ');
  readln(shirina);
  write('Высота -> ');
  readln(vysota);
  Writeln('Объём: ', (dlina * shirina * vysota):7:2);
  Repeat
  Until KeyPressed;

end.