Найти сумму натуральных чисел от 1 до 50. программу написать на языке паскаль, по теме "вложенность цикла".

Program random_; uses crt;   var b,i: word; begin b: =0; for i: =1 to 50 do b: =b+i; writeln(b); end.

Var x,nb,nm,z,xm,xb : longint; h,g,k : integer; begin writeln('введите количество больших коробок.'); readln(nb); writeln('введите количество маленьких коробок.'); readln(nm); writeln('введите количество товара в больших коробках.'); readln(xb); writeln('введите количество товара в маленьких коробках.'); readln(xm); writeln('сколько товара помещается в вагон? '); readln(x); z: = nb*xb +nm*xm; if z < = x then writeln('все изделия поместятся в один вагон') else begin h : = z div x; writeln('количество вагонов для погрузки всех товаров = ',h); end; g: = z div nb; k: = z div nm; writeln ('освободиться ',g,' больших или ',k,' маленьких коробок'); end. 

// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin   var c: =0;   for var i: =100000 to 999999 do begin       var a: =i.tostring.tochararray;       if a.distinct.count=5 then begin           c+=1;           if c< 7 then print(i)           else begin println(i); c: =0 end           end       end end. результат ( только начало) 100234 100235 100236 100237 100238 100239 100243 100245 100246 100247 100248 100249 100253 100254 100256 100257 100258 100259 100263 100264 100265 100267 100268 100269 100273 100274 100275 100276 100278 100279 100283 100284 100285 100286 100287 100289 100293 100294 100295 100296 100297 100298 таких чисел 408 240 и они займут 58 320 строк