Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.
Напиши:Монитор,Мышка,Клавиатура,Системный блок
И сфоткай их
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Думаю так, по крайней мерее я бы сделал именно так
www.adres_sajta.ru/images/foto.jpg
мы просто пишем в файле page.html полный путь к файлу foto.jpg, и всё)