Решение систем дифференциальных уравнений методом Рунге-Кутты 4 порядка
PROCEDURE STROKA;
BEGIN
WRITE (f2,'|', x:4:1,'|', c[1]:7:3,'|', c[2]:7:3,'|', c[3]:7:3,'|');
WRITE (f2,sum:3:0,'|', dc[1]:7:3,'|', dc[2]:7:3,'|', dc[3]:7:3,'|');
WRITELN (f2);
END;