(4,13)
var n:integer;
begin
Writeln('Vvedite chislo');
readln(n);
if (n>=100) and (n
Begin
Writeln('Yavlyaetsya');
end
else
writeln('Ne Yavlyaetsya');
readln;
end.
(4,15)
var number : integer ;
begin
write('Vvedite chislo ');
readln(number);
if number mod 2 = 0 then
writeln('Chislo chetnoe')
else writeln('Chislo ne chetnoe');
readln;
end.
(4.14)
var
a,x,b:real;
begin
writeln('vvedite koordinatu x :');
readln(x);
writeln('vvedite a :');
readln(a);
writeln('vvedite b :');
readln(b);
if a>b then if (x<=a)and(x>=b)then
writeln('Yes')
else
writeln('No')
else
if (x<=b)and(x>=a) then
writeln('Yes')
else
writeln('No');
end.
Если что, 14 подшамань чуток, а так все правильно