Найти сумму трехзначных чисел. Использовать цикл с параметром.
(Сделайте в ПАСКАЛЬ, пожалуйста)

Я переписал программу, исходя из более трезвого состояния. Буду рад, если она Вам пригодится.

Cкачал, программа работает, но не то, что мне надо:(

ввожу например 111, а их тупо складывает и получается 3, а необходимо вводить 2 трехзначных числа и получить их сумму, как я понял по заданию

Посмотрите переписанную программу.

Скопируйте текущий код. Я его переписал.

Program Сумма;varotvet:String;sled:= true; chislo:=0;i,b, summa:integer;BeginWrite('Сколько чисел вы хотите суммировать?');Read(b);for i:=1 to b doBeginWrite('Введите трёхзначное число: ');Read(chislo);while (chislo <100) or (chislo >1000) doBeginWrite('Число не трёхзначное, попробуйте ещё раз!');Read(chislo);End;summa+=chislo;End;Write('Сумма равна ', summa);End.