Если боишься сделать ошибку, то не бойся. Бери и делай. Будет ошибка - будешь её понимать, и исправлять.
Задача достаточно проста, чтобы её можно было решить без ошибок. Нуууу, если только пофантазировать, то можно предположить что кто-либо может забыть, что массивы могут быть как чётной, так и нечётной длины.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Var
a,b:integer;
begin
readln (a,b);
writeln (a*b);
end.
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>