Напишите программку, которая для введенной десятичной дроби исполняет сдвиг десятичной точки

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadReal('Введите число:');
  var k:=ReadInteger('Введите величину сдвига десятичной точки:');
  a:=a*10**k;
  a.Println
end.

Образцы
Введите число: 12345.09876
Введите величину сдвига десятичной точки: -3
12.34509876

Введите число: 345.09876
Введите величину сдвига десятичной точки: 4
3450987.6

Введите число: 12345.09876
Введите величину сдвига десятичной точки: 8
1234509876000

Введите число: 12345.09876
Введите величину сдвига десятичной точки: 15
1.234509876E+19

Введите число: 1.23456789e-10
Введите величину сдвига десятичной точки: -25
1.23456789E-35

Var r,i:integer;
a:real;
begin
write('Введите число: ');
readln(a);
write('Введите число разрядов (позиций): ');
readln(r);
if(rgt;0) then for i:=1 to r do a:=a*10;
if(rlt;0) then for i:=1 to абс(r) do a:=a/10;
writeln(a)
end.