program Lab5_2;
uses crt;
var p , q , r,DR1,DR2,S:real;
var n:integer;
procedure DR(var p,q,r:real;var n:integer);
begin
DR1:=exp(n*ln(2))*p*q;
DR2:=exp(n*ln(2))*r;
end;
begin
clrscr;
write('Ââåäèòå ÷èñëî');
readln(n);
p:=3*exp((n-1)*ln(2))-1;
q:=3*exp(n*ln(2))-1;
r:=9*exp((2*n-1)*ln(2))-1;
writeln(DR2 ,DR1 );
end.при ввводе правильных чисел пишет
00 в остальных случаях вообще не работает помогите исправить пожайлуста.