Помогите пожалуйста помогите решит

Question

Помогите пожалуйста помогите решит

---

Answer 1

1) program rtr;
Var
A,b,c:integer;
Begin
Writeln('введите любые 3 числа');
readln(a,b,c);
If a>b then
A:=b ;
If a>c then
Writeln ( 'мин число =',с)
Else
Writeln('мин число =', а);
Readln;
End.