Множества. дана непустая последовательность слов из строчных букв: между соседними словами-запятая, за последним словом-точка.напечатать в алфавитном порядке все гласные буквы, которые не входят хотя бы в одно чётное слово.

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords(Arr(',','.'));
  var (i,ssg):=(1,'аеёиоуыэюя');
  var sg:=['а','е','ё','и','о','у','ы','э','ю','я'];
  while i<=a.Length do begin
    foreach var c in a[i].ToCharArray do
      if c in sg then Exclude(sg,c);
    i+=2
    end;
  for var j:=ssg.Length downto 1 do
    if not (ssg[j] in sg) then Delete(ssg,j,1);
  ssg.ToCharArray.Println(',')
end.

uses graphabc;

 

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

 

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.