Giúp mình đi minh cho 5 sao pls

đầu vào:chiều dài a

              chiều rộng b

đầu ra:a\(\times\)b

Điểm giống nhau giữa cấu trúc rẽ nhánh và cấu trúc lặp là cả hai đều điều khiển luồng thực thi của chương trình, cho phép chương trình có thể thực hiện các hành động khác nhau dựa trên các điều kiện cụ thể.

Em chọn biểu tượng Σ góc trái màn hình chọn biểu tượng phân số là được em nhé.

Ở đâu vậy cô/thầy?

what

program XoaChuSoLonNhat;

var
  s: string;
  i, j, k, vitri: integer;
  soLonNhat: longint;

function ChuanHoa(s: string): string;
var
  i, j: integer;
begin
  for i := 1 to Length(s) do
    if s[i] = '0' then
      Delete(s, i, 1);
  for i := 1 to Length(s) do
    if s[i] = '-' then
      Delete(s, i, 1);
  if s[1] = '+' then
    Delete(s, 1, 1);
end;

function TimViTriLonNhat(s: string): integer;
var
  i, j: integer;
begin
  vitri := 1;
  for i := 2 to Length(s) do
    if s[i] > s[vitri] then
      vitri := i;
end;

function XoaChuSo(s: string; vitri: integer): string;
var
  i: integer;
begin
  Delete(s, vitri, 1);
  for i := vitri to Length(s) do
    Inc(s[i]);
end;

function ChuyenSangSo(s: string): longint;
var
  i, so: integer;
begin
  so := 0;
  for i := 1 to Length(s) do
    so := so * 10 + Ord(s[i]) - Ord('0');
  if s[1] = '-' then
    so := -so;
end;

begin
  Writeln('Nhap xau: ');
  Readln(s);
  s := ChuanHoa(s);

  vitri := TimViTriLonNhat(s);
  soLonNhat := ChuyenSangSo(XoaChuSo(s, vitri));

  Writeln('So lon nhat sau khi xoa 1 chu so: ', soLonNhat);
end

nhầm môn rồi bạn ơi

0,25≈0,3

0,25=0,3 ạ~~~~