Напишите программку, которая получает два целых числа и обретает их

Не, ну ты вовремя написал. Я теснее сделал программку, а ты Паскаль.

Не знаю,дали такое задание

Задание - это не интересно. Интересует Ваш ответ на поставленный вопрос.

Задания тут Вы даете. И чем Вы ранее это поймете, тем превосходнее для Вас. Если Вы просто сюда переписываете задание, которое дали Вам, а позже наш ответ вспять - то Вы просто лишнее звено в цепочке.

Давайте нам координаты того, кто задание Для вас выдал и мы просто сходу ответ туда отправим.

А вот если Для вас дали задание, а Вы его осмыслили, как-то проработали и попросили помочь - это другое дело.

А по другому все сводится к очевидной подсказке, а это противозаконно. Попробуйте осознать.

я могу его сделать через for а через цикл while нет

Я Для вас вопрос задал О ВЫВОДЕ, о представлении результатов.

Раз можете сделать, поведайте, как организуете вывод.

javascript:var a = parseInt(prompt()), b = parseInt(prompt()), c = 0, сч = 0; while (сч lt; Math.абс(b)) c += a; сч++; if (b lt; 0) c = -c; alert(c);

А вот и Pascal. Полагаюсь, не ошибся.

program pr;

var a, b, c, cnt: integer;

begin

 a := readln();

 b := readln();

 c := 0;

 cnt = 0;

 while (c lt; abs(b)) begin

   c := c + a;

   cnt := cnt + 1;

 end;

 writeln(c);

end.