Если a>x хватит
Если a = x то b должно быть больше или равно n
Если a<x То на диск не хватит
Если у меня осталась тетрадь с прошлого года то отошлю
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.
const
students = 20;
var
marks: <em>byte</em> := students;
begin
writeln('Все пришли?');
var c: <em>string</em>;
readln(c);
if not (c in ['Yes', '1', 'True', 'Да']) then
begin
writeln('Сколько не пришло?');
var b: <em>byte</em>;
readln(b);
marks := (marks > b ? marks - b : 0);
end;
writeln(marks, ' оценок');
<span>end.</span>