В разделе var ты описываешь х как целое:
x: integer;
А потом пытаешься присвоить х дробное число:
x :=14.6 ;
Замени x: integer; на x: real; и будет тебе счастье.
В разделе var ты описываешь х как целое:
x: integer;
А потом пытаешься присвоить х дробное число:
x :=14.6 ;
Замени x: integer; на x: real; и будет тебе счастье.