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.
