var
i,x,y: integer;
a: real;

тупо но:
TProgValue = record
i,x,y: integer;
a: real;
end;

var
x : TProgValue;

>>Вообще-то, меня интересует, как написать код с одной переменной...
вот и ответ на твой вопрос... достаточно тривиальный =/

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...