Как сделать сумму чисел меньше 10, причем числа находятся в массиве в интервале 1 ... 1000

(Паскаль)

Program abc;

var

a:array [1 ... 1000] of integer;

i:integer;

sum:integer;

begin

sum:=0;

for i:=1 to 1000 do

begin;

readln (a[i]) ;

if a[i] < 10 then

sum+=1;

end;

writeln (sum) ;

end.

Вот:

uses Crt; var A, B, C; integer; begin ClrScr; while (A > - 10) and (A - 10) and (B < 10) do begin write (' Ввести два целых числа: ') ; readln (A, B) ; C: = A * B; writeln (' Произведение равно: ', C) ; end; writeln (' Программа завершена.') ; readln end.

На выходе:

uses Crt; var A, B, C; integer; begin ClrScr; while (A > - 10) and (A - 10) and (B < 10) do begin write (' Ввести два целых числа: ') ; readln (A, B) ; C: = A * B; writeln (' Произведение равно: ', C) ; end; writeln (' Программа завершена.') ; readln end.