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

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.