Var a:real;
Begin
Write(Число: ); readln(a);
if (a<=100) then a:=a*10
else a:=a/100;
Writeln(a);
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.