Помогите пожалуйста написать программы по этим двум заданиям (паскаль) 1)введения целые...

Question

Помогите пожалуйста написать программы по этим двум заданиям (паскаль) 1)введения целые положительные числа пока их сумма меньше 100 найдите количество целых чисел. 2)вычислить выражения:

---

Answer 1

//1)

begin

 var Sum := 0;

 var n := 0;

 var Count := 0;

 

 while Sum < 100 do

 begin

   n += 1;

   Sum += n;

   Count += 1;

 end;

 

 Count -= 1;

 

 Print('Count =', Count)

end.

//2)

begin

 var y:=0;

 

 for var i:=1 to 4 do

   y+=5*i*i;

 

 y.Println;

end.