[shava13]

Danch1k
1)

Program asdfg;
uses crt;
var a,b:real;
begin
ClrScr;
writeln('Введите 2 числа');readln(a,b);
b:=abs(b);
if a>b then
a:=a/2;
writeln(a:2:2);
writeln(b:2:2);
readkey;
end.

2)

Program asdfg;
uses crt;
var a,b:string;
c,d:integer;
begin
ClrScr;
writeln('Введите число');readln(a);
d:=length(a) ;
while d>=1 do
begin
b:=b+copy(a,d,1);
d:=d-1;
end;

writeln(b) ;
readkey;
end.