Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число

{2)Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.}
program up;
var
  a:integer;
  str,b:string;
  begin
  readln(a);
  str:=inttostr(a);
  str:=str+str[1];
  delete(str,1,1);
  writeln(str);
  end.

{3)Данные числа х,у являются координатами точки, лежащей в левой координатной четверти.}
program up;
var
  x,y:longint;
  begin
  readln(x,y);
  if (x > 0) and (y > 0) then
  writeln('Является')
  else
    if (x > 0) and (y < 0) then
      writeln('Является')
      else
        writeln('Не является');
        end.

{1)Определить суммарный объем (л) 12 вложенных в друг друга шаров со стенками 5 мм. внутренний диаметр внутреннего шара равен 10см. Считать, что шары вкладываются в друг друга без зазоров.}
program up;
 
var
  r, v: real;
  i:integer;
begin
  r := 5.0;
  v := 0;
  for i := 1 to 12 do 
  begin
    v := v + 4.0 / 3.0 * PI * r * r * r;//к суммарному объёму прибавляем 4/3 * ПИ * радиус в кубе
    r += 0.5;//увеличиваем радиус на 0.5 см
  end;
  writeln('Суммарный объём 12-шаров равен ', v, ' см кубических или ', v / 1000, ' литров');
end.