Выведите на экран все положительные числа которые будут меньше числа введённого с клавиатуры (используя оператор while) pascal abc !

Var

a,b:integer;

Begin

Readln(a);

Readln(b);

While a <> 0 do

Begin

If a < b then

Writeln('a=',a);

Readln(a);

End;

End.

В отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.

Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби.

Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.

Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина.

#include<iostream>

using namescacestd;

int main()

{

int size;

float sum=0;

cout<<"pls enter count your array"<<endl;

cin>>size;

float **arr = new float *[size];

for (int v = 0; v < size; v++)

 arr[v] = new float[size];

cout<<"pls enter your  array"<<endl;

for(int i=0;i<size;i++)

for(int j=0;j<size;j++)

{

cout<<"arr["<<i<<"]["<<j<<"] = ";

cin>>arr[i][j];

cout<<endl;

sum=sum+arr[i][j];

}

cout<<"Sum array = "<<sum<<endl;

free(array);

system("pause");

return 0;

}