//Задание номер 5

{
var
  a, s: string;
  i: byte;
  u: boolean;
  c: char;

begin
  u := true;
  write('введите число: ');
  read(s);
  a := s;
  for i := 1 to length(s) do
    if not (s[i] in ['0'..'9']) then u := false;
  if u = false then write('ваше число содержит посторонние символы')
  else
  begin
    c := a[1];
    a[1] := a[length(a)];
    a[length(a)] := c;
    write('результат: ', a);
  end;
end.
}


//Задание номер 6

{
var n, sum, mult: integer;
begin
    write('Введите число ');
    readln(n);
    sum := 0;
    mult := 1;
    while n > 0 do begin
        sum := sum + n mod 10;
        mult := mult * (n mod 10);
        n := n div 10
    end;
    writeln('Сумма равна: ', sum);
    writeln('Произведение ровно: ', mult);
end.
}

//Задание номер 7, код из задания номер 5. т.к оно так же подходит и для трехзначного числа

{
var
  a, s: string;
  i: byte;
  u: boolean;
  c: char;

begin
  u := true;
  write('введите число: ');
  read(s);
  a := s;
  for i := 1 to length(s) do
    if not (s[i] in ['0'..'9']) then u := false;
  if u = false then write('ваше число содержит посторонние символы')
  else
  begin
    c := a[1];
    a[1] := a[length(a)];
    a[length(a)] := c;
    write('результат: ', a);
  end;
end.
}

//Задание номер 8

{
var
  l, k: integer;

begin
  write('Введите значение L:');
  readln(l);
  k := l div 100;
  write('Количество полных метров: ', k, '.');
end.
}


//Задание номер 9

{
var
  a, k: integer;

begin
  write('Введите размер файла: ');
  readln(a);
  k := a div 1024;
  write('Количество полных килобайтов: ', k, '.');
end.
}