f.4 pascal programming

任何的 Programming 找出 Maxmiun and Minimun 有很多種做法
首先定義兩個 Variable max, min
Repeat Until Loop 是一個 Loop 讓你於未
滿足的條件之下不斷運行

var max : real;
var min : real;
var s : integer;
min = 0;
max = 0;

begin
writeln("enter #s (0 to stop):")

repeart
readln(s);
if max < s then
max = s;
if min > s then
min = s;
until s=0 ;

write("Largest =");
writln(max);
write("Smallest=");
writeln(min);
end.