Первая:
var
x,y:integer;
begin
writeln('Vvedite x');
readln(x);
if x>0 then
y:=sqr(x)
else
y:=x+1;
writeln(y);
end.
Вторая
var
x:integer;
y:real;
begin
writeln('vvedite x');
readln(x);
if (x<0) and (x>=-1) then
y:=12.5*2
else
if x<-1 then
y:=x-1
else
y:=12*x;
writeln(y);
end.
Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if((x1*x1+y1*y1)>(x2*x2+y2*y2))then writeln('2-точка')else
writeln('1-точка');
end.
Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>