Автор - kssuvik
var n,max,min,i:integer;
begin
max:= -1;
min:= 999999;
for i:=1 to 3 do begin
write('введите зарплату ' ,i, ' сотрудника: ');
readln(n);
if(n>max) Then max:=n;
if(n<min) Then min:=n;
end;
write('разница равна ',max-min);
end.