Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
(это паскаль)
программа просит пользователя вводить с клавиатуры целые числа. Условиям выхода из цикла является либо введённое отрицательного число, либо четное число. В таком случае программа завершает свою работу и говорит «на сегодня хватит...»​

Answer 1

var a:integer;

begin

repeat

readln(a)

until (a<0) or (a mod 2=0 );

write('на сегодня хватит...');

end.