Для питона на главной странице даже было показано пример смены двух переменных.
a, b = b, a
Статья содержит 8 стр, на каждой странице 32 строки, в каждой строке 32 символа⇒ умнажаем это всё друг на друга
8*32*32= 8192 это всего символов
8192*16= 131072 = 128
Переводить в десятичную и решать в ней, результат потом переводить обратно
Var
i:integer;
min:real;
a:array[1..3]of real;
begin
for i:=1 to 3 do
begin
writeln(i,' число:');
readln(a[i]);
if i=1 then min:=a[1];
if a[i]<min then min:=a[i]
end;
writeln('Наименьшее: ',min)
<span>end.</span>