안녕 하세요

제가 생각해도 한심하게 변수를 선언하고 선언한 변수를 초기화 하고

있습니다.

한수 가르쳐 주십시오.

아래와 같은 경우의 변수 선언과 초기화 방법을요... 감사합니다.



<변수선언>

youl1,yjm1,yjr1,yss1,ysh1,ysi1,yso1,yst1 : double;

youl2,yjm2,yjr2,yss2,ysh2,ysi2,yso2,yst2 : double;

youl3,yjm3,yjr3,yss3,ysh3,ysi3,yso3,yst3 : double;

youl4,yjm4,yjr4,yss4,ysh4,ysi4,yso4,yst4 : double;

youl5,yjm5,yjr5,yss5,ysh5,ysi5,yso5,yst5 : double;

youl6,yjm6,yjr6,yss6,ysh6,ysi6,yso6,yst6 : double;

youl7,yjm7,yjr7,yss7,ysh7,ysi7,yso7,yst7 : double;

youl8,yjm8,yjr8,yss8,ysh8,ysi8,yso8,yst8 : double;

youl9,yjm9,yjr9,yss9,ysh9,ysi9,yso9,yst9 : double;

youl10,yjm10,yjr10,yss10,ysh10,ysi10,yso10,yst10 : double;

youl11,yjm11,yjr11,yss11,ysh11,ysi11,yso11,yst11 : double;

youl12,yjm12,yjr12,yss12,ysh12,ysi12,yso12,yst12 : double;

youl13,yjm13,yjr13,yss13,ysh13,ysi13,yso13,yst13 : double;



hjm1,hjr1,hss1,hsh1,hsi1,hso1,hst1,hisu1: integer;

hjm2,hjr2,hss2,hsh2,hsi2,hso2,hst2,hisu2: integer;

hjm3,hjr3,hss3,hsh3,hsi3,hso3,hst3,hisu3: integer;

hjm4,hjr4,hss4,hsh4,hsi4,hso4,hst4,hisu4: integer;

hjm5,hjr5,hss5,hsh5,hsi5,hso5,hst5,hisu5: integer;

hjm6,hjr6,hss6,hsh6,hsi6,hso6,hst6,hisu6: integer;

hjm7,hjr7,hss7,hsh7,hsi7,hso7,hst7,hisu7: integer;

hjm8,hjr8,hss8,hsh8,hsi8,hso8,hst8,hisu8: integer;

hjm9,hjr9,hss9,hsh9,hsi9,hso9,hst9,hisu9: integer;

hjm10,hjr10,hss10,hsh10,hsi10,hso10,hst10,hisu10: integer;

hjm11,hjr11,hss11,hsh11,hsi11,hso11,hst11,hisu11: integer;

hjm12,hjr12,hss12,hsh12,hsi12,hso12,hst12,hisu12: integer;

hjm13,hjr13,hss13,hsh13,hsi13,hso13,hst13,hisu13: integer;



<변수초기화> youl1:=0;yjm1:=0;yjr1:=0;yss1:=0;ysh1:=0;ysi1:=0;yso1:=0;yst1:=0; youl2:=0;yjm2:=0;yjr2:=0;yss2:=0;ysh2:=0;ysi2:=0;yso2:=0;yst2:=0; youl3:=0;yjm3:=0;yjr3:=0;yss3:=0;ysh3:=0;ysi3:=0;yso3:=0;yst3:=0;

이하 생략