Запишите языка программирования команду если значение переменной а меньше или равно 100, то значение а увеличивается в 10 раз, если больше 100 - уменьшается в 10 раз. на языке паскаль

Var a:real;
Begin
Write('Число: '); readln(a);
if (a<=100) then a:=a*10
else a:=a/100;
Writeln(a);
End.