Ввести 4 числа a b c d.из большего вычесть меньше (** языке паскаля)

Question

Ввести 4 числа a b c d.из большего вычесть меньше (на языке паскаля)

Answer 1

Var i:byte;
x,y:integer;
vt:array[1..4]of integer;

BEGIN
for i:=1 to 4 do begin
write('Введите ',i,'-е число ');
readln(vt[i]);
end;

x:=vt[i];//минимум
y:=vt[i];//максимум
for i:=2 to 4 do begin
if x>vt[i] then
x := vt[i];
if y y := vt[i];
end;

writeln('Минимальное число ', x);
writeln('Максимальное число ', y);
writeln('Разница ', y-x);
END.

---

Comments

не могу исправить задание

---

for i:=2 to 4 do begin
if (x>vt[i]) then
x := vt[i];
if (y y := vt[i];
end;