Написать программку: Пусть дано 10 вещественных чисел, которые вводятся по одному.

Program zadacha_4;
nbsp;var
nbsp;i:integer;
x, max,min:real;
nbsp;begin
nbsp;writeln(Введите число);
nbsp;readln(x);
nbsp;min:=x;
nbsp;max:=x;

nbsp;for i:=2 to 10 do begin
nbsp;read(x);
nbsp;if xgt;max then max:=x else
nbsp;if xlt; min then min:=x;
end;
readln;
nbsp;writeln(разность меж наибольшим и минимальным числами:, max-min);
nbsp;readln;
nbsp;end.