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.
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.