2)
Program g;
Var
a:integer;
begin
readln(a) ;
Begin
if a<0 then
Write(a*-1) end;
if a>0 then
End.
3)
Program h;
a, b:integer;
Readln(a) ;
While a<100 do
a:=a+1;
Write(a, ' ' ) end;
End;
2)
Program g;
Var
a:integer;
begin
readln(a) ;
Begin
if a<0 then
Write(a*-1) end;
Begin
if a>0 then
Write(a*-1) end;
End.
3)
Program h;
Var
a, b:integer;
Begin
Readln(a) ;
Begin
While a<100 do
Begin
a:=a+1;
Write(a, ' ' ) end;
End;
End.