Программирование ** языке Паскаль. Заставить пользователя ввести отрицательное число....

Question

Программирование на языке Паскаль. Заставить пользователя ввести отрицательное число. Помогите пожалуйста:)

Comments

щас попробуем

Answer 1

Var a:integer;
begin
repeat
write('Введите число: ');
read(a);
if a>0 then writeln('Положительное число!');
until a<0;<br>end.

Answer 2

Program asd;
USES crt;
var a,b,s:real;
BEGIN
Repeat
Writeln('Введите отр. число, пока не будет введено, буду долбать! Я жду!  ');
Readln(a);
until a<0;<br>If a<0 then Writeln('Так бы сразу, молодец :) ');<br>END.

Вот так :)