Указать правильное выражение: «значимые поля таблиц субд ms
1) автоматически
2) вручную
3) из файла
4) из интернета

добавить действие, которое нужно выполнить для добавления личных данных нового ученика таблице ученики субд ms access.
1) применить фильтр к базе данных
2) создать отчет с таблицы
3) добавить запись в таблице
4) добавить поле в таблицу

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function Гласные_в_слове(w:string):sequence of char;
begin
  Result:=w.ToCharArray.Where(c->Pos(c,'аеёиоуыэюя')>0).Distinct
end;

begin
  var s:=ReadlnString('>');
  var w:=s.ToWords(',','.');
  var P:=Гласные_в_слове(w[0]);
  for var i:=1 to Length(w,0)-1 do begin
    var Q:=Гласные_в_слове(w[i]);
    P:=P.InterSect(Q)
    end;
  P:=P.Sorted;
  if P.Count>0 then begin
    Write('Гласные, которые есть в каждом слове: ');
    P.Println(',')
    end
  else
    Writeln('Нет ни одной одинаковой гласной во всех словах');
  var R:='бвгджзйклмнпрстфхцчшщъь'.ToCharArray.ToList;
  foreach var c in s do
    if c in R then R.Remove(c);
  if R.Count>0 then begin
    Write('Согласные, которых нет ни в одном слове: ');
    R.Println(',')
    end
  else
    Writeln('Все согласные присутствуют в тексте')
end.

Тестовое решение
> фонарик,барахолка,биосфера,волокуша,макароны.
Гласные, которые есть в каждом слове: а,о
Согласные, которых нет ни в одном слове: г,д,ж,з,й,п,т,ц,ч,щ,ъ,ь

Program asd;
Var
  a,b,c:integer;
Begin
  Writeln('Введите стороны треугольника: ');
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else
   if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else
    if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else      Writeln('Не прямоугольный');
End.
Блок-схема прикреплена ниже.
Тестовые значения:
Введите стороны треугольника:
 a=3
b=4
c=5
Прямоугольный