Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
Есть несколько вариантов узнать значение переменной в любой момент работы программы
- пошаговое исполнение в редиме отладки (debug) и через watch или наведения мыши смотреть значение в определенный момент
- вывод в лог, или так называемый дебаг логированием. Логом может служить не только текстовый файл, но и консоль
- дополнительные способы типа assert
Var x:real;
begin
read(x);
if x>0 then x:=x/2 else
x:=x*5;
write(x);
end.