вычислительная программа

[скромняшка]

VAR I,U,R,A,q: real;
begin
writeln('напряжение','U');
readln(U);
U:=A/q;
I:=U/R;
Writeln(I:6:5);
readln;
end.

помогите найти ошибку пожалуйста.

[BDA]

Вы считываете U, а потом тут же пересчитываете его по формуле A/q, причем A и q в момент подсчета формулы равны 0. Еще нужно считать R.

[скромняшка]

а как найти R?

[BDA]

readln(R);