procedure somename(x:integer);
// Процедура выводит на экран целое значение x, умноженное на 10.0 
// в указанном формате. 
//
// Написана довольно давно неизвестным программистом 
//
// Такой комментарий, содержащий 
//     цель написания процедуры (что она делает и зачем нужна), 
//     данные о времени написания и об авторе,
//     описания параметров,
//     особенности алгоритма
// полезно включать в код любой процедуры

var             // Локальные переменные - могут использоваться только внутри данной процедуры!
  y: real;
  
begin           // Раздел кода процедуры
  y := 10.0;
  x := x * y;
  write(x:10:1);
end;