Vara,b,sum:real;beginread(a,b);sum:=0;sum:=abs(a-b);write(sum);end.
Вот сортировка прямого выбора
var x:integer;
begin
writeln('Введите значение x: ');
readln(x);
if x<3 then
writeln('y = ',sqr(x))
else
if x>3 then
writeln('y = ',sqrt(x))
else
if x=3 then
writeln('y = ',2*x);
end.
Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin
kv = i*i;
sum:=sum+kv;
kv:=0;
end;
end.