Просто подставляешь переменные в формулы и решаешь
Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub
Program summa;
<span>var a, b, c, s: real; </span>
<span>begin </span>
<span>writeln('Введите числа a, b, c'); </span>
<span>readln(a,b,c); </span>
<span>s:=abs(a)+abs(b)+abs(c); </span>
<span>writeln('s=,'s); </span>
<span>readln; </span>
<span>end.</span>
1 создаёшь на флешке папку.
2. кидаешь туда все файлы, включая саму презентацию.
3. идёшь в колледж.
4. показываешь презентацию.