Сначала объявить переменную в окне объявлений вверху: NUM:REAL; Затем в программе присвоить NUM:=P1;