Посчитать сумму чисел от 21 до 31, делящихся без остатка на 5. без замудрений , тема 8 класса.

из данных чисел от 21 до 31 на 5 без остатка делятся 25 и 30.

25+30=55

Легко 2 5 + 3 0 = 5 5

//pascal abc.net v3.1 сборка 1219 //как я понял, количество очков случайно var   a,i,s: integer; begin   randomize;   for i: =1 to 5 do   begin     a: =random(11);     writeln(i,' выстрел -',a);     s: =s+a;   end;   writeln('сумма=',s);   if s=50 then writeln('идет с зиночкой в ресторан') else writeln('на тренировку в тир'); end. пример работы программы: 1 выстрел -3 2  выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 сумма=28 на тренировку в тир

Это код консольного приложения program project2; {$apptype console} uses   sysutils, windows; function storona(x1,y1,x2,y2: real): real; var s: real; begin   s: =sqrt(sqr(x1-x2)+sqr(y1-y2));   storona: =s; end; var   x1,y1,x2,y2,x3,y3: real;   l1,l2,l3: real; begin   //переключение окна консоли на кодовую страницу cp1251 (win-1251).   //если после переключения буквы показываются неверно,   //следует открыть системное меню консольного окна - щелчком мыши в левом   //верхнем углу окна консоли и выбрать:   //свойства - закладка "шрифт" - выбрать шрифт: "lucida console".   setconsolecp(1251);   setconsoleoutputcp(1251);   write('введите координаты точки а: ');   readln(x1,y1);   write('введите координаты точки b: ');   readln(x2,y2);   write('введите координаты точки c: ');   readln(x3,y3);   l1: =storona(x1,y1,x2,y2);   l2: =storona(x2,y2,x3,y3);   l3: =storona(x1,y1,x3,y3);   if (l1> l2)and(l1> l3) then   begin       writeln('периметр прямоугольника = ',(l2+l3)*2: 6: 2);       writeln('площадь прямоугольника = ',l2*l3: 6: 2)   end;       if (l2> l1)and(l2> l3) then   begin       writeln('периметр прямоугольника = ',(l1+l3)*2: 6: 2);       writeln('площадь прямоугольника = ',l1*l3: 6: 2)   end;       if (l3> l1)and(l3> l2) then   begin       writeln('периметр прямоугольника = ',(l1+l2)*2: 6: 2);       writeln('площадь прямоугольника = ',l1*l2: 6: 2)   end;   readln; end.