Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
ну я не понимаю как это с помощью букв 0_o
если первые буквы брать то так:
1)376 - Ч∧Т
2)зимой дети катаются на К∨Л
3)н.г. мы встретим на Д∨П
4)(С движется вокруг З)=0
5)З=шар, З-голубая=1
6)С-ответили ∧ писали
0-ложь
1-правда
∧-и
∨-или
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
а есть картинка этого задание или опишите его нормально