Расмотртите данную цепочку и расположен от меньшего к большему 10кбайт , 1гбайт , 1 байт , 10мбайт , 10 бит

1 байт,10бит,10кбайт,10мб,1гбайт

1 байт 10 бит 10 кбайт 10мбайт 1гбайт

// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  var (w,h):=(800,600); // размер графического окна
  SetWindowSize(w,h);
  var (xc,yc):=(w div 2,h div 2); // координаты центра
  var R:=h-yc-20; // радиус описанной окружности
  var n:=ReadInteger('Количество сторон n =');
  Window.Clear;
  Pen.Width:=5;
  Pen.Color:=clRed;
  var P:=new Point[n];
  for var i:=0 to n-1 do begin
    var arg:=2*Pi*i/n-Pi/2;
    P[i].X:=Trunc(xc+R*cos(arg));
    P[i].Y:=Trunc(yc+R*sin(arg))
    end;
  DrawPolygon(P);
end.

Здесь нужно введенную строку преобразовать в список со знаком-разделителем ".", так как идентификация файла идет только по расширению (это слово после последней точки в строке). Далее нужно проверить последнее слово (это последний элемент списка, его можно вытащить из списка с индексом -1) на соответствие одному из трех заданных расширений.

Программа:

x=input().split('.')  #строим список из слов по разделителю "точка"
y=['htm','html','php']   #задаем список расширений web-страниц 
if x[-1] in y:                #если последнее слово из х есть в списке у
    print('Это веб-страница')   #выводим положительное сообщение
else:                           #иначе
    print('Что-то другое')          #выводим отрицательное сообщение