Найти минимум из трех введенных с клавиатуры чисел (числа различные, полное ветвление)
Пример с двумя числами:
Program Max;
Var a, b: integer;
begin
readln(a, b);
if (a>b) then writeln(a, ' - максимум ')
else writeln(b, ' - максимум ');
end.

program aaa;

Uses crt;

Var a,b,c,min:integer;

Begin

clrscr;

Write ('A=');

Readln (a);

Write ('B=');

Readln (b);

Write ('C=');

Readln (c);

If (a<c) and (a<b) then min:=a;

If (b<a) and (b<c) then min:=b;

If (c<a) and (C<b) then min:=c;

writeln (' Minimalnoe chislo =',min);

Readln

end.