дан массив к(5)  опишите этот массив и заполните его с клавиатуры

uses crt;vari: integer;k: array [1..5] of real;beginclrscr;writeln ('Input array:');for i:=1 to 5 dobeginwrite (i,') ');readln (k[i]);end;writeln ('Your array:');for i:=1 to 5 dowrite (k[i],' ');readln ();end.