Сор 1 по информатике 1 четверть 6 класс​

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.

расстояние в сантиметрах разделить на число сантиметров в одном метре