Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.
Целенаправленный процесс изменения содержания представления информации это-обработка
Как вариант. "Или" - разные преподаватели требуют по-разному. Как вариант еще сначала проверить А=В, если нет, то тр. не равн., если да, то проверять А=С, если нет, то тр. не равн., если да(и А=В, и А=С), то тр. равносторонний.
var c: real;
begin
readln(c);
writeln(c * 0.5 * c / 2);
end.