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

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.