language: Pascal (gpc) (gpc 20070904)
date: 106 days 20 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12

program smthree (input,output);
    var i , sm : integer;
        a : array [1..3] of integer;
begin
    for i:=1 to 3 do read(a[i]);
    sm:=a[1];
    for i:=2 to 3 do
      begin
        if a[i]<sm then sm:=a[i]
      end;
    writeln(sm);
end.