Скореи всего нет я пробывал нет.
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
Я выделила самую главную информацию.
Главным направлением перестройки менеджмента и его радикального усовершенствования, приспособления к современным условиям стало массовое использование новейшей компьютерной и телекоммуникационной техники, формирование на ее основе высокоэффективных информационно-управленческих технологий.
Средства и методы прикладной информатики используются в менеджменте и маркетинге. Новые технологии, основанные на компьютерной технике, требуют радикальных изменений организационных структур менеджмента, его регламента, кадрового потенциала, системы документации, фиксирования и передачи информации.
Var A: array[0..100] of integer;
Program CrazyCoder;
var a,b,c: real;
begin
write('Введите число "A": ');
readln(a);
writeln('Введите число "B": ');
readln(b);
c:=a-b;
write('Сдача: ', c);
<span>end.</span>