Решите пожалуйста 5,6,7,8,9. Очень необходимо! Заблаговременно СПАСИБО!!!)

//Задание номер 5var 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.

у меня токо одно фото

это все задания на одной фото?

Нет.

Прикрепил начальный файл паскаль

/Задание номер 6var 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.

//Задание номер 7var 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.

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

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

спасибо