Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
<span>1 <span>for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;</span></span>
Если шаг не задан явно, значит он равен 1.
1.точку после Энда ставить нужно
readln(a);
readln(b);
2.c:=a*b;
3.writeln('proizvedenie a i b ravno,c);
4.Readln(c);
Таблица))))))))))))))))))