Отметьте преимущества операционной системы linux. бесплатность простота настройки и установки высокое быстродействие высокий уровень безопасности и защиты от вирусов полная поддержка современной аппаратуры

Книга Михаель Кофлер Linux Полное руководство 2010

Const
  gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

var
  w1, w2: string;
  m: set of char;
  c: char;
  i: integer;

begin
  Writeln('Введите первое "слово"');
  Readln(w1);
  Writeln('Введите второе "слово"');
  Readln(w2);
  m := [];
  w1 := LowerCase(w1);w2 := LowerCase(w2);
  for i := 1 to length(w1) do
    if w1[i] in gl then Include(m, w1[i]);
  for i := 1 to length(w2) do
    if w2[i] in m then Exclude(m, w2[i]); 
  Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:');
  foreach c in m do Write(c, ' ');
  Writeln
end.

Тестовое решение:
Введите первое "слово"
Дай, Джим, на счастье лапу мне!
Введите второе "слово"
Сергей Есенин
Гласные, присутствующие в первом слове и отсутствующие во втором:
а у

Program chik;
var a:array[1..1000]of integer;
h,i,n,x:integer;
begin
read(n);
h:=0;
for i:=1 to n do
begin
read(a[i]);
end;
read(x);
for i:=1 to n do
begin
if(a[i]=x*x)then h:=h+1;
end;
write(h);
end.
2)
program chik2;
var a,h:integer;
begin
a:=5;
h:=0;
while a<>0 do
begin
read(a);
if(a<0)then h:=h+1;
end;
write(h);
end.
3)program chik3;
var a,h,s,p:real;
begin
a:=5;
h:=0;
while a<>0 do
begin
read(a);
s:=s+a;
h:=h+1;
end;
p:=s/h;
write(p);
end.
4)program chik4;
var n,j,i:longint;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
write(j,' ');
end;
writeln;
end;
end.
 УДАЧИ!