Var
l,i:longint;
S:String;
begin
Read(S);
l:=length(S);
For i:=l downto 1 do Write(S[i]);
end.
<span>read - оставляет курсор после прочтения на этой же строке</span>
<span><span>readln - переводит курсор на следующую строку</span></span>
<em>1.</em>
<span><em>program xopow1;</em>
<em> uses
crt;</em>
<em> var
</em>
<em> a, b, Sek: integer;
</em>
<em>begin
</em>
<em>writeln('Введите границы:');
</em>
<em> repeat
</em>
<em> readln(a, b);
</em>
<em> until b >= a;
</em>
<em> clrscr;
</em>
<em> for a := a to b do</em>
<em> begin
</em>
<em>Sek := a * 60;
</em>
<em> writeln(a, ' мин. = ', sek, ' сек.')
</em>
<em> end</em>
<em>
end.</em></span>
<em>2.</em>
<em>program xopow2;</em>
<em> uses crt; </em>
<em>Var</em>
<em> z:integer;</em>
<em> f,x,y:real; </em>
<em>Begin </em>
<em>clrscr; </em>
<em>Writeln;</em>
<em>X:=10000;</em>
<em>Y:=(x/100)*10;</em>
<em>for z:=1 to 7 do </em>
<em> Begin </em>
<em>X:=x+y; </em>
<em>Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); </em>
<em>End; </em>
<em>Writeln('Нажмите Enter...'); </em>
<em>Readln;</em><span><em> </em>
<em>end.</em></span>
Не парься!!!!!!))))))))))))
Под буквой а 2 б 2 в 3 г 1