Theo em, nhóm chức năng thể hiện rõ nhất đặc thù của hệ điều hành máy tính cá nhân là quản lí thiết bị (CPU, bộ nhớ hay thiết bị ngoại vi).

Một số công việc mà hệ điều hành thực hiện:

- Quản lí tệp và thư mục trong máy tính.

- Quản lí các thiết bị như CPU, bộ nhớ hay các thiết bị ngoại vi.

- Cung cấp một số tiện ích như định dạng đĩa, nén tệp, …

- …

program count_days;

var

       a, b, c, x, y, z, days: integer;

function is_leap_year(year: integer): boolean;

begin

       if (year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0) then

              is_leap_year := true

       else

              is_leap_year := false;

end;

function days_in_month(month, year: integer): integer;

begin

       case month of

              1, 3, 5, 7, 8, 10, 12: days_in_month := 31;

              4, 6, 9, 11: days_in_month := 30;

              2:

                     if is_leap_year(year) then

                            days_in_month := 29

                     else

                            days_in_month := 28;

       end;

end;

begin

       writeln('Nhap ngay a thang b nam c: ');

       readln(a, b, c);

       writeln('Nhap ngay x thang y cung nam c: ');

       readln(x, y, z);

       if (a > x) or ((a = x) and (b > y)) or ((a = x) and (b = y) and (c > z)) then

       begin

              writeln('Loi nhap lieu!');

              halt;

       end;

       days := days_in_month(b, c) - a + 1;

       while (b < y) or ((b = y) and (c < z)) do

       begin

              a := 1;

              b := b + 1;

              if b > 12 then

              begin

                     b := 1;

                     c := c + 1;

              end;

              days := days + days_in_month(b, c);

       end;

       days := days - (days_in_month(y, z) - x);

       writeln('So ngay giua hai ngay la: ', days);

end.

Dữ liệu ra: số ngày tương ứng

program cho_xuat;

uses
  System.SysUtils, System.Classes, System.Generics.Collections;

type
  Tsum = record
    value: Integer;
  end;

  TsumArray = array of Tsum;

function cho_xuat(N: String; M: Integer): TsumArray;
begin
  SetLength(Result, Length(N));
  for i := 0 to High(Result) do
  begin
    if N[i] >= 58 then
      Result[i].value := Result[i].value + M
    else
      Result[i].value := Result[i].value - M;
  end;
end;

var
  N, M: String;
  a: TsumArray;
begin
    readln(N, M);
    a := cho_xuat(N, M);

    WriteLn('KQ: ' + N, ' -> ' + ConvertIntToString(M) + '');
    for i := 0 to High(a) do
    begin
        WriteLn(' + ', a[i].value, ' +', );
    end;
end.

program bai_toan;

var

      S, S1: string;

      i, j, n: integer;

begin

      write('Nhap xau S: ');

      readln(S);

      n := length(S);

      for i := n downto 1 do

      begin

            S1 := S1 + S[i];

      end;

      for i := n downto 1 do

      begin

            if S = S1 then break;

            S := S + S1[i];

      end;

      writeln('Xau doi xung ngan nhat la: ', S);

      readln;

end.