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

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.