Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
Вкняыкецые ЙКуе это правильный ответ
Б.мыши. г.окно а.вариантов в. меню "Пуск" .вроде так
Max=0
Min=30000
x=int(input())
while x:
if x>Max:
Max=x
if x<Min:
Min=x
print(Max,Min)
Program z;
var str:string;
begin
str:='В печке выпечен батон, а в петлицу вдет бутон';
while pos('е',str)>0 do
delete(str,pos('е',str),1);
writeln(str);
end.