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.