Question

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

Answer 1

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

Вот так :)

Answer 2

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