Паска-а-аль. Ввести с клавиатуры цену и кол-во товара. Найти стоимость покупки. Пишите!

program test;
var x, y: real;
begin
  write('Vvedite cenu tovara: ');
  readln(x);
  write('Vvedite kolichestvo tovara: ');
  readln(y);
  writeln('Stoimost pokupki = ', (x*y):0:2);
  readln();
end.