monobogdan , к утру это нужно сделать а я хз как это воспроизвести к утру, тк моя баба мне сказала про это только в 10 вечера, я вот хз куда себя деть

Злой Коп , хз. Пишут научным языком который с первого раза не поймешь. Надо вдумчиво читать.

monobogdan , да вот написал сам но хз верно или нет:

var a:array(1..3) of byte; i,n,max,min,otv:longint;
begin
for i:= 1 to 3 do
read(a);
max:=a(1);
for i:=1 to 3 do
if max<a<i> then max:=a;
min:=a(1);
if min>a then min:=a;
otv:=max-min;

Если не верно то от девушки завтра получу вечером за не верно написанный код, ее в шк по паскалю гоняют, а хоть я его толеом и не знаю, она больше меня должна знать в паскале , но не может код записать толком

Злой Коп , чё то даже сам недодумался до этого :D
Можно было бы и без max, min, просто вычислять на лету.

В прошлом году был на олимпиаде по программированию ,точно такая задачка была ,не смог решить.А можно было написать на С++ или яве

wladua2016 , у нас вообще любой яп разрешали, какой был на машине.
Я тогда на FPC писал.