Помогите с информатикой ,срочно!!! заранее спасибо!

var a,b:real;

begin

writeln ('введите курс валюты ');  

read (a);

writeln ('введите количество условных единиц ');  

read (b);

writeln ('количество рублей =',a*b);

end.