Программа запросил количество чисел в ноборе. Числа в ноаборе могут быть дробными. Паскаль должен отобразить только целые части, введённых чисел, а такижк сумму целых чисел

var n,k:integer; begin write('N k: '); readln(n,k); writeln(n*(1+0.001*k+(0.019*ord(k>30)*(k-30))):0:2);end.