Ммм, если ты нигде не ошибся, то цикл не выполнится и программа выведет только девятку, которая перед этим самым циклом стоит
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
<span>1. Cовершенную дизъюнктивную и конъюнктивную формы функции
2. М</span>инимальную дизъюнктивную и конъюнктивную формы функции с использованием метода Карно-Вейча
3. М<span>инимальную форму функции с использованием операции «И-НЕ»
4. М</span><span>инимальную форму функции с использованием операции «ИЛИ-НЕ»</span>
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>