Код для паскаль. дана последовательность целых чисел a, b, c. найти разность между максимальным и минимальным значениями.

 
program pin;
var 
i, j, cm: Integer; 
povtor: Boolean; 
const 
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2); 
begin 
cm := 0; 
for i := 1 to 10 do 
begin 
povtor := False; 

Var a,b,c:integer;
     max,min:integer;
begin
  readln (a,b,c):
  if (a>b) and (b>c) then max:=a else
   if (b>a) and (a>c) then max:=b else max:=c;
  if (a<b) and (b<c) then min:=a else
   if (b<a) and (b<c) then min:=b else min:=c;
  writeln (max-min);
end.