Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.
Активная ячейка (ActiveCell) - это выделенная ячейка, если выделен диапазон, то обычно это первая ячейка диапазона.
Для редактирования ячейки вручную, ее для начала придется выбрать т.е. сделать активной
Var
a,b,n:integer;
begin
a:=2;
readln(n);
write(a,' ');
for b:=1 to n do
begin
a:=a*2;
write(a,' ');
end;
<span>end.</span>