Вариант 2. Дано трёхзначное натуральное число. Получить другое натуральное число, в котором порядок цифр изменён на противоположный. Как будет выглядеть эта программа на языке паскаль?

еще раз, ибо в комменты норм кидает код.

program rok_ork_kok;var x:integer; s:string; c1,c2,c3:char; beginwriteln('введите число');readln(s);if length(s)=3 then beginfor x:=0 to 3 dobeginc1:=s[1];c2:=s[2];c3:=s[3];end;endelse writeln('неверное число');writeln('первоначальный вид '+c1+c2+c3+' полученный вид '+c3+c2+c1); end.

Большое спасибо !

Program NAMEPROGRAM;Замени NAMEPROGRAM на имя программы только.