Можно ли использовать в записи поля одного типа?

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

640*480*3*8/28800 секунд

таких тем много.

я предлагаю такие:

1) интересные события ( в мире, в стране, в

2) знаменитости и интересные факты о них.

3) все о писателях, поэтах и т.д.

4) наш дружный класс.

5) наш родной город.

6) наши одноклассники ( все о них)

7) наши учителя

вот к примеру такие. надеюсь тебе хватит) 

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.