uses System;var dolar,kurs:real;begin cls;writeln('kakoi shas kurs??: ');readln(kurs);writeln('vvedi summu v dolarah : ');readln(dolar);writeln;writeln('v rublah = ', kurs*dolar);
readln;end.
