Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

var a,b,s,i: integer;

begin

readln(a,b);

if a> b then

for i: =b to a do

s: =s+i

else

for i: =a to b do

s: =s+i;

writeln(s);

end.

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.